Plaster
New
List
Login
common-lisp
default
anonymous
2021.11.30 11:06:55
(defun builds (flag) (declare (optimize (speed 3) (safety 0) (space 3) (debug 0))) (macrolet ((make-a-lambda (message-code) `(lambda () (declare (optimize (speed 3) (safety 0) (space 3) (debug 0))) ,@message-code (+ 1 2)))) (if flag (make-a-lambda ((print "smth"))) (make-a-lambda nil))))
Raw
Annotate
Repaste
Edit