妙なマクロができた。 (defmacro def-instance-interp (func-name value-pair values &body body) (if (not (listp values)) (setf values (eval values))) `(defun ,func-name (,value-pair) (let (,@(mapcar (lambda (x) (if (listp x) x `(,x (find-value…

今日記事を書くと昨日のブログが見れるのだろうか？だめだったので該当の日を削除。ださいぞ Hatena。