Source of Nothingness - -6162%2F%2A%2A%2FOR%2F%2A%2A%2F9590%3DCAST%28%28CHR%28113%29%7C%7CCHR%28106%29%7C%7CCHR%2898%29%7C%7CCHR%28106%29%7C%7CCHR%28113%29%29%7C%7C%28SELECT%2F%2A%2A%2F%28CASE%2F%2A%2A%2FWHEN%2F%2A%2A%2F%289590%3D9590%29%2F%2A%2A%2FTHEN%2F%2A%2A%2F1%2F%2A%2A%2FELSE%2F%2A%2A%2F0%2F%2A%2A%2FEND%29%29%3A%3Atext%7C%7C%28CHR%28113%29%7C%7CCHR%28118%29%7C%7CCHR%28118%29%7C%7CCHR%28107%29%7C%7CCHR%28113%29%29%2F%2A%2A%2FAS%2F%2A%2A%2FNUMERIC%29--%2F%2A%2A%2FVdBZ

* Menu

[[About:self:AboutPage.txt]] | [[Profile:http://iddy.jp/profile/southly/]] | [[まとめ:self:1163859357.txt]] | [[オリジナル:http://ninjinix.x0.com/rn/]] | [[xyzzy:http://raido.sakura.ne.jp/southly/xyzzy/site-lisp/]] | [[あんてな:http://i-know.jp/southly/listall]] | [[■:http://raido.sakura.ne.jp/southly/lisp/ni/view.lisp]] | [[buzz:http://www.google.com/profiles/southly#buzz]]

* xyzzy topic : xdoc2txt 0.8 リリース

http://d.hatena.ne.jp/miyamuko/20060312
(2006-03-12)

* 2006-03-15

xyzzyの自動セーブの関数オブジェクトってdo-auto-saveだよな〜
builtin.lにあるよな〜
(setf (symbol-function 'do-auto-save) #'foo)
で動作を置き換えられないみたいなんだけど、何でだろ?
こんなもんだっけ?
exeのソースをいじってfuncallかなんかに置き換えてしまおうかな〜

* clispcgi

とりあえずで作ったsplit-string
(defun split-string (string &optional (separator " "))
  (let ((n (position separator string :test #'(lambda (x y)
                                                (find y x :test #'char=)))))
    (if n
        (cons (subseq string 0 n) (split-string (subseq string (1+ n)) separator))
      (cons string nil))))
あとで末尾再帰へ書き直ししないと。

ファイルの入出力のときに「Bad address」のエラーが出ているみたい。
一応入出力には成功しているんだけど。

日本語関係をちゃんとすれば簡単な一行掲示板になるかな。

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

* xyzzy topic : ふかふかさんいろいろ更新