Plaster
New
List
Login
text
default
anonymous
2023.08.02 13:13:57
(defmacro returns-symbol-instead-of-code (list-form) `(mapcar (lambda (item) (lambda () item)) ,list-form)) CL-USER: (let ((x 100)) (returns-symbol-instead-of-code '(25 50 x))) => (#<CLOSURE (LAMBDA () :IN #:G4) {1007ABAF9B}> #<CLOSURE (LAMBDA () :IN #:G4) {1007ABAFCB}> #<CLOSURE (LAMBDA () :IN #:G4) {1007ABAFFB}>) CL-USER: (funcall (first *)) => 25 CL-USER: (funcall (third **)) => X
Raw
Annotate
Repaste
Edit