Plaster
New
List
Login
common-lisp
default
anonymous
2018.06.11 13:15:11
(defmacro make-function-maker (name class-name) (list 'defmacro name '(args &body body) (list 'list ''make-instance (list 'quote class-name) :fun '(cons 'lambda (cons args body)))))
Raw
Annotate
Repaste
Edit