[[About:self:AboutPage.txt]] | [[Profile:file/southly/]] | [[まとめ:self:1163859357.txt]] | [[オリジナル:http://ninjinix.x0.com/rn/]] | [[xyzzy:lisp/]] | [[あんてな:listall]] | [[■:lisp]] | [[buzz:files/southly#buzz]]

print-objectを定義するとprincとprin1の両方に影響するんだなぁ
別々に定義することはできないんだろうか。

と思ったらできた。
princとprin1の差は*print-escape*に現れるので、この値で分岐すれば良かった。*print-readably*かと勘違いしてた。

(defclass point ()
  ((x :initform (random 100))
   (y :initform (random 100))))
(make-instance 'point)
;=> #<POINT {121573B1}>
(defmethod print-object ((object point) stream)
  (if *print-escape*
      (print-unreadable-object (object stream :type t)
        (format stream "(~D, ~D)" (slot-value object 'x) (slot-value object 'y)))
      (format stream "(~D, ~D)" (slot-value object 'x) (slot-value object 'y))))
(make-instance 'point)
;=> #<POINT (53, 69)>
(format nil "~A" (make-instance 'point))
;=> "(55, 81)"
(format nil "~S" (make-instance 'point))
;=> "#<POINT (41, 71)>"

[[(ReadMore...) index.rb?1237620463.txt]]

(defun nswap (l x y)
  (rotatef (car (nthcdr x l)) (car (nthcdr y l)))
  l)

(defun nshuffle (l)
  (do ((i (length l) (1- i)))
      ((>= 1 i))
    (setq l (nswap l (1- i) (random i))))
  l)

元のデータを直接いじっていくほうが分かりやすくないッスか?
ってことでこんな。
nswapは関数にする必要は無いけど意味が分かりやすいように。

• 2007-03-03 : search wordの重複を避けるようにした(データの再構築)
• 2007-01-12 : またまたspam対策。全角文字が無い投稿は弾く事にした
• 2007-01-11 : spam対策。書き込めるURIの数に制限をつけた
• 2006-11-21 : REFERERのデータをいじった(改造じゃないけど)
• 2006-11-05 : search wordの並びに辞書順を追加
• 2006-09-08 : spam対策。狙われているページを編集不可に。
• 2006-04-25 : RSSのdescriptionまわりとか(うっかり検索履歴を消してしまう(汗 )
• 2006-04-12 : へなちょこspam対策 第一弾の修正
• 2006-04-02 : RSSをファイルに出力するようにした
• 2006-04-02 : なんか細々と
• 2006-03-26 : RSSも検索結果に(完成)
• 2006-03-23 : RSSも検索結果に(途中まで)
• 2006-03-17 : change_logを少し見易くした
• 2006-03-04 : へなちょこspam対策 第一弾
• 2006-03-03 : 下部にもページリンクを設置
• 2006-02-28 : refererの表示をカウント2以上に
• 2006-02-28 : 特定leafへのリンクに別名をつける
• 2006-02-28 : こまごまとしたこと
• 2006-02-22 : コメント欄 (飾り)
• 2006-02-22 : RSS周り (RSS auto-discovery & HTTP応答ヘッダ)
• 2006-02-19 : NOT検索 (へなちょこ)
• 2006-02-13 : ブックマーク

→[[Todo self:1140534666.txt]]

• 改行は改行として、空行は空行として扱われます。
• 行の先頭が空白の場合、その行はそのまま表示されます。整形されません。
• URL（http://ninjinix.x0.com/rn/）はそのURLへのリンクになります。
• [[ ]] で囲まれた言葉は、その言葉を検索するリンクになります。

[[(ReadMore...) index.rb?TextFormat.txt]]

RandomNote について。

→[[ChangeLog self:1141132537.txt]]
→[[Todo self:1140534666.txt]]