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))