From 62f1304ffc49321d90fd2241f9a2c6b05308dc95 Mon Sep 17 00:00:00 2001 From: efim Date: Sat, 27 Aug 2022 19:08:19 +0000 Subject: [PATCH] advice for checking intermediate calculations --- lisp-koans/koans/macros.lisp | 4 ++++ 1 file changed, 4 insertions(+) diff --git a/lisp-koans/koans/macros.lisp b/lisp-koans/koans/macros.lisp index d088dee..daeece6 100644 --- a/lisp-koans/koans/macros.lisp +++ b/lisp-koans/koans/macros.lisp @@ -111,6 +111,9 @@ ;; but yes, for gensym limit ,stop is evaluated first ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; +;; advice on checking intermediate things inside of let / flet / etc +;; (*print-gensym*) ; so that gensyms could be copied into repl +(declaim (optimize 'debug)) (define-test for (macrolet ((for ((var start stop) &body body) @@ -129,6 +132,7 @@ (return-3 () (push 3 side-effects) 3)) (for (i (return-0) (return-3)) (push i result))) + (break) (assert-equal '(0 1 2 3) (nreverse result)) (assert-equal '(0 3) (nreverse side-effects)))))