(once-only (a b ... ) body) ;;;=> (let ((#:G01 a) (#:G02 b) ....) (let ((a #:G01) (b #:G02) ....) body)) となることは想像つくんだけど・・・ 作れといわれてもまだ無理か。

マット・リドレーの「繁栄 明日を切り開くための十万年史」が面白すぎる。

CommonLispはトップレベルに定義された変数はスペシャル変数となりダイナミックスコープを持つ (defvar x 10) (defun foo () x) (let ((x 100)) (foo)) => 100 レキシカルスコープこんな風にコーディングすることがあるのかどうかは知らんが。 (let ((x 10))…

手続きの残り引数 CommonLisp (defun huga (a &rest b) (list a b) # (huga 1 2 3) -> (1 (2 3)) scheme (define (huga a . b) (list a b) # -> (huga 1 2 3) -> (1 (2 3)) ほとんど同じ。schemeの方が楽といえば楽 オプショナル引数 CommonLisp (defun huga…