Meh, an empty patch is a stupid idea.  Attached is the real thing.
Apologies for the noise.

-- 
The world is burning.  Run.
Wed May 26 21:12:45 CEST 2010  olof.fr...@web.de
  * Fixed broken PROGN handling
diff -rN -u old-iterate/iterate.lisp new-iterate/iterate.lisp
--- old-iterate/iterate.lisp	2010-05-26 21:18:02.000000000 +0200
+++ new-iterate/iterate.lisp	2010-05-26 21:18:02.000000000 +0200
@@ -824,10 +824,7 @@
   ;; bound.  This is so macros can return PROGNs of things.  It's exactly like
   ;; the definition of "top-level" in lisp. 
   ;; (Also, just for looks, this returns nil if the progn is empty.)
-  (return-code-modifying-body #'walk-list stuff 
-			      #L(if (null !1)
-				    nil
-				    (list (cons progn !1)))))
+  (return-code-modifying-body #'walk-list stuff #L(list (cons progn !1))))
 
 (defun walk-setq (setq &rest things)
   ;; Walk every other thing.

_______________________________________________
iterate-devel site list
iterate-devel@common-lisp.net
http://common-lisp.net/mailman/listinfo/iterate-devel

Reply via email to