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 ;; 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 (define-test for
(macrolet ((for ((var start stop) &body body) (macrolet ((for ((var start stop) &body body)
@ -129,6 +132,7 @@
(return-3 () (push 3 side-effects) 3)) (return-3 () (push 3 side-effects) 3))
(for (i (return-0) (return-3)) (for (i (return-0) (return-3))
(push i result))) (push i result)))
(break)
(assert-equal '(0 1 2 3) (nreverse result)) (assert-equal '(0 1 2 3) (nreverse result))
(assert-equal '(0 3) (nreverse side-effects))))) (assert-equal '(0 3) (nreverse side-effects)))))