Plaster
New
List
Login
common-lisp
default
phoe
2022.02.01 16:43:45
(macrolet ((dfm (symbol) `(defmethod ,symbol (x) x)) (make-dfms (list) (let ((dfms (mapcar (lambda (x) `(dfm ,symbol))))) `(progn ,@dfms)))) (dfms (foo bar baz quux))) (macrolet ((dfm (symbol) `(defmethod ,symbol (x) x)) (make-dfms (list) (let ((dfms (mapcar (lambda (x) `(dfm ,x)) list))) `(progn ,@dfms)))) (PROGN (DFM FOO) (DFM BAR) (DFM BAZ) (DFM QUUX))) (macrolet ((dfm (symbol) `(defmethod ,symbol (x) x)) (make-dfms (list) (let ((dfms (mapcar (lambda (x) `(dfm ,x)) list))) `(progn ,@dfms)))) (PROGN (DEFMETHOD FOO (X) X) (DEFMETHOD BAR (X) X) (DEFMETHOD BAZ (X) X) (DEFMETHOD QUUX (X) X)))
Raw
Annotate
Repaste