efim
/
common-lisp-study
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

advice for checking intermediate calculations

This commit is contained in:
efim 2022-08-27 19:08:19 +00:00
parent ecf12d390d
commit 62f1304ffc
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lisp-koans/koans/macros.lisp
View File

@ -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)))))