Plaster
New
List
Login
common-lisp
default
anonymous
2023.09.21 18:24:04
* (defmacro genfun (name) (let ((s (gensym))) `(defun ,name (let ((,s 1)) ,s)))) GENFUN * (genfun f1) ; in: GENFUN F1 ; (SB-INT:NAMED-LAMBDA USER::F1 ; (LET ((#:G115 1)) ; #:G115) ; (BLOCK USER::F1)) ; ; caught ERROR: ; Required argument is not a symbol: ((#:G115 1))
Raw
Annotate
Repaste
Edit