Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- (defun builds (flag)
- (declare (optimize (speed 3) (safety 0) (space 3) (debug 0)))
- (macrolet ((make-lambda (flag)
- `(lambda ()
- (declare (optimize (speed 3) (safety 0) (space 3) (debug 0)))
- ,(when flag
- '(print "smth"))
- (+ 1 2))))
- (if flag
- (make-lambda t)
- (make-lambda nil))))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement