Plaster
New
List
Login
common-lisp
default
anonymous
2020.03.26 21:40:23
(defmacro special-if ((quoted-form then else)) `(progn (print ,quoted-form) (if ,quoted-form ,then ,else))) (defun tst1 () (let ((x "abc")) (special-if (x 1 2)))) ;;1 (defun tst2 () (let ((x "abc")) (lambda () (special-if (x 1 2))))) ;;2
Raw
Annotate
Repaste
Edit