tinyclos

tinyclos でプログラミングできつつある。
これは楽。純粋な Lisper じゃない私向き。
define-generic は２回呼ぶとそれまでの登録を消してしまうことがわかった。

#;1> (load "test.scm")
; loading test.scm ...
; loading /usr/lib/chicken/7/tinyclos.import.so ...
; loading /usr/lib/chicken/7/extras.import.so ...
; loading /usr/lib/chicken/7/lolevel.import.so ...
; loading /usr/lib/chicken/7/srfi-1.import.so ...
; loading /usr/lib/chicken/7/tinyclos.so ...
; loading lbuf.scm ...
; loading test-lbuf.scm ...
[]
[1 2]
[2]
; loading square.scm ...
; loading test-square.scm ...
#;2> (show s4)
(#<unspecified> #<unspecified>)
(#<unspecified> #<unspecified>)
lbuf:[]
fifo:[]
[]
[]
#;3> (slot-set! s4 'v00 10)
#;4> (slot-set! s4 'v01 20)
#;5> (slot-set! s4 'v10 30)
#;6> (slot-set! s4 'v11 40)
#;7> (show s4)
(10 20)
(30 40)
lbuf:[]
fifo:[]
[]
[]