09/06/29 23:25:17
>>380
(defvar *test* '(("aaa" . "bbb") ("ccc" . "ddd")))
(defun foo (val)
`(progn ,@(mapcar (lambda (x) `(print ,(car x))) val)))
(defmacro build-toolbar (val)
(let ((m (gensym)))
`(macrolet ((,m () (foo ,val)))
(,m))))
09/06/29 23:25:17
>>380
(defvar *test* '(("aaa" . "bbb") ("ccc" . "ddd")))
(defun foo (val)
`(progn ,@(mapcar (lambda (x) `(print ,(car x))) val)))
(defmacro build-toolbar (val)
(let ((m (gensym)))
`(macrolet ((,m () (foo ,val)))
(,m))))