(define (cxr->ad-fun-lis sym)
(fold-right (lambda (e acc)
(let1 p (coalesce ((eq? e 'a) car)
((eq? e 'd) cdr))
(if p
(cons p acc)
acc))) '() (symbol->list sym)))
;; image
(define count-test
(let ((count 0))
(dlambda
(:reset ()(set! count 0))
(:inc (n)(inc! count n))
(:dec (n)(dec! count n))
(:bound (lo hi)
(set! count (min hi (max lo count)))))))
;; expand image
(define count-test
(let ((count 0))
(lambda (key . args)
(case key
((:reset)(apply (lambda ()
(set! count 0)) args))
((:inc)(apply (lambda (n)
(inc! count n)) args))
((:dec)(apply (lambda (n)
(dec! count n)) args))
((:bound)(apply (lambda (lo hi)
(set! count
(min hi (max lo count)))) args))
(else key)))))
(count-test :reset)
;; 0
(count-test :inc 100)
;; 100
(count-test :inc 1)
;; 101
(count-test :inc 2)
;; 102
(count-test :bound -10 10)
;; 10
(count-test :reset)
;; 0
(count-test :inc 1)
;; 1
Schemeのマクロは変数衝突を「自動的に回避する」と書きましたが、一体どうやって 回避してるんでしょうか。
ローカル束縛(arithmetic-ifにおける変数var)の衝突の回避については、 マクロ展開ルーチンがマクロが挿入する変数varを衝突しないようにリネーム してやることで回避できます。gensymをマクロシステムが自動的にやってくれると 言っても良いでしょう。
shiro: うーむCL+slimeで作業してるとやっぱりgauche+quackは物足りなく感じるなあ。 http://bit.ly/b35LjH
予測できる使い方の範囲では、これが最も直感的で贅肉のない方法だと思う。らしい。個人的には、むしろ直感的でなくなっているように思いますが・・・。
(cut cons (+ a 1) <>) ≡ (lambda (x2) (cons (+ a 1) x2))
(cut list 1 <> 3 <> 5) ≡ (lambda (x2 x4) (list 1 x2 3 x4 5))
(cut list) ≡ (lambda () (list))
(cut list 1 <> 3 <...>)
≡ (lambda (x2 . xs) (apply list 1 x2 3 xs))
(cut <> a b) ≡ (lambda (f) (f a b))部分適用便利だなー！
マクロを使えば、他の言語では全く不可能なことが可能になる。 --Doug Hoytedefine-syntaxの書き方や仕組みも良くわかっていないのですが、取り合えずトライ。
マクロは、Lispが1つのプログラミング言語として有する唯一最大の強みであり、いかなるプログラミング言語においても唯一最大の強みである。 --Doug Hoyte著者のLisp（のマクロ）マンセーっぷりがすごい。
ってこういうものだったんですか。
SBCL
| (defvar temp-special) (setq temp-special 1) (defun temp-special-returner () (temp-special-returner) (let ((temp-special 2)) (temp-special-returner) |
schemeだとこうはならんですね。常にレキシカルスコープ（こういう言い方していいのか知りませんが）ということですかね。
| (define temp-special 0) (set! temp-special 1) (define temp-special-returner (temp-special-returner) (let ((temp-special 2)) |
dynamic-windを使うと同じようなことができるそうな。
funcall とか function とか #' とか・・・、今のところとても面倒でややこしい印象。まともに Common Lisp さわるの初めてです。