2010年9月7日火曜日

Common Lispでforマクロ その2

昨日の続きのforマクロ。

昨日のままだと、外側のletのbinding内でそんなシンボル無いです、と怒られて動かないことがあると思われるので修正.

せっかくなのでgithubを活用する事にしました。

http://github.com/kurohuku/for-loop

現状の動作はこんな感じです。

(for ((a :in (list 1 2))
(b :range 4 6)
(c :across #(10 11)))
(list a b c))
;; => ((1 4 10) (1 4 11) (1 5 10) (1 5 11)
;; (2 4 10) (2 4 11) (2 5 10) (2 5 11))

0 件のコメント:

コメントを投稿