- 474 名前：デフォルトの名無しさん mailto:sage [2011/12/01(木) 13:47:32.64 ]
- 簡単に言えば？次のような感じで使ったりする。
(defun translator (tr)
(destructuring-bind (in . out) tr
(lambda(c)
(if (eql in c) out in ))))
CL-USER> (funcall (translator '(c .'(a b))) 'b)
C
CL-USER> (funcall (translator '(c .'(a b))) 'c)
'(A B)
