Update of /cvsroot/sbcl/sbcl/src/code
In directory usw-pr-cvs1:/tmp/cvs-serv8604/src/code
Modified Files:
loop.lisp
Log Message:
0.7.9.34:
merged emu LOOP.1.27 patch (sbcl-devel 2002-11-01)
added DOWNTO line analogous to emu's ABOVE line, as per CSR
added another bug report
Index: loop.lisp
===================================================================
RCS file: /cvsroot/sbcl/sbcl/src/code/loop.lisp,v
retrieving revision 1.19
retrieving revision 1.20
diff -u -d -r1.19 -r1.20
--- loop.lisp 5 Nov 2002 16:36:36 -0000 1.19
+++ loop.lisp 7 Nov 2002 12:53:38 -0000 1.20
@@ -1895,8 +1895,10 @@
(downfrom (loop-for-arithmetic :downfrom))
(upfrom (loop-for-arithmetic :upfrom))
(below (loop-for-arithmetic :below))
+ (above (loop-for-arithmetic :above))
(to (loop-for-arithmetic :to))
(upto (loop-for-arithmetic :upto))
+ (downto (loop-for-arithmetic :downto))
(by (loop-for-arithmetic :by))
(being (loop-for-being)))
:iteration-keywords '((for (loop-do-for))
|