Plaster
New
List
Login
common-lisp
default
anonymous
2023.02.25 07:32:12
(defmacro define-macro (name variable) `(defmacro ,name () `(symbol-value ',',variable))) (macroexpand-1 '(define-macro foo-value *foo*)) ;; => ;; (DEFMACRO FOO-VALUE () `(SYMBOL-VALUE ','*FOO*))
Raw
Annotate
Repaste
Edit