added bug/walk.2
Thu Jun 3 09:33:35 UTC 2010 attila.lendvai@gmail.com
* added bug/walk.2
diff -rN -u old-iterate/iterate-test.lisp new-iterate/iterate-test.lisp
--- old-iterate/iterate-test.lisp 2015-09-01 03:56:08.337358383 +0000
+++ new-iterate/iterate-test.lisp 2015-09-01 03:56:08.349358324 +0000
@@ -1727,6 +1727,14 @@
(over i)))) ; would yield (1 1 1) if correct
(1 2 3))
+(deftest bug/walk.2
+ (iter (return (if (oddp 1)
+ (progn)
+ 'even)))
+ ;; The bug is in emtpy PROGN walking. Due to that the THEN branch is lost
+ ;; and it returns 'EVEN instead of NIL.
+ nil)
+
(deftest bug/macrolet.2
(progn
(format *error-output*