2002-10-07 Sam Steingold <sds@gnu.org>
* sloop.lisp (loop-finish): shadow the CL loop-finish
(FIRST-SLOOP-FOR): avoid a warning by explicitly
declaring *loop-increment* special
--
Sam Steingold (http://www.podval.org/~sds) running RedHat7.3 GNU/Linux
<http://www.camera.org>; <http://www.iris.org.il>; <http://www.memri.org/>;
<http://www.mideasttruth.com/>; <http://www.palestine-central.com/links.html>;
Daddy, what does "format disk c: complete" mean?
--- sloop.lisp.~1.2.~ Fri Feb 23 21:21:59 2001
+++ sloop.lisp Mon Oct 7 10:04:02 2002
@@ -72,9 +72,8 @@
(in-package "SLOOP")
;(or (find-package "SLOOP") (make-package "SLOOP" :use '(LISP)))
-;(eval-when (compile eval load)
-;(shadow '(LOOP-FINISH) (find-package "SLOOP"))
-;)
+(eval-when (compile eval load)
+ (shadow '(LOOP-FINISH) (find-package "SLOOP")))
;(in-package "SLOOP" )
;
;(eval-when (compile eval load)
@@ -1140,6 +1139,7 @@
;;; THEN construction.
(def-loop-for first (var expr1 then expr2)
+ (declare (special *loop-increment*))
(or (l-equal then 'then) (error "First must be followed by then"))
;; If this is the first for, then we don't need the flag, but can
;; move the FIRST setting into the INITIALLY section