diff options
| -rw-r--r-- | examples.lisp | 19 |
1 files changed, 19 insertions, 0 deletions
diff --git a/examples.lisp b/examples.lisp index 8d9204c..fdfdbcf 100644 --- a/examples.lisp +++ b/examples.lisp @@ -15,3 +15,22 @@ #$(mapcar #$$(if (> $$x 9) (- $$x 9) $$x) $digits) ;; <-- nested partial eval #$(zerop (mod (apply #'+ $digits) 10)))) + + +(enable-lazy-eval-reader-macros) + +(defun lazy-eg1 () + (let* ((four #~(print (+ 2 2))) + (sum #~(+ (print 1) (print 2) (print 3) #!four))) + (list #!sum #!sum))) + +;; prints +;; 1 +;; 2 +;; 3 +;; 4 + +;; returns +;; (10 10) + + |