(setf *trans-code* '(("add" . #'(lambda () (format t "add"))) ("sub" . #'(lambda () (format t "sub"))) ("mul" . #'(lambda () (format t "mul"))) ("xor" . #'(lambda () (format t "xor")))))
(setf x (cdr (assoc "add" *trans-code* :test #'string=)))
(funcall x)
こうすると"add"と表示されることを期待したのですが， FUNCALL: #1=#'(LAMBDA NIL (FORMAT T "add")) is not a function name; try using a symbol instead [Condition of type SIMPLE-TYPE-ERROR] となってしまいます．これは何がおかしいのでしょうか？
