Advertisement
Guest User

Untitled

a guest
Nov 30th, 2021
58
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
Lisp 0.39 KB | None | 0 0
  1. (defun builds (flag)
  2.   (declare (optimize (speed 3) (safety 0) (space 3) (debug 0)))
  3.   (macrolet ((make-lambda (flag)
  4.                `(lambda ()
  5.                   (declare (optimize (speed 3) (safety 0) (space 3) (debug 0)))
  6.                   ,(when flag
  7.                      '(print "smth"))
  8.                   (+ 1 2))))
  9.     (if flag
  10.         (make-lambda t)
  11.         (make-lambda nil))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement