From: Nikodemus S. <de...@us...> - 2010-08-30 11:13:27
|
Update of /cvsroot/sbcl/sbcl/src/code In directory sfp-cvsdas-3.v30.ch3.sourceforge.com:/tmp/cvs-serv4937/src/code Modified Files: defboot.lisp Log Message: 1.0.42.3: DOTIMES and non-integer counts * For non-literal non-integer counts we already did the right thing, but eg. literal floats slipped under the radar. * Patch by Roman Marynchak, lp#619393. Index: defboot.lisp =================================================================== RCS file: /cvsroot/sbcl/sbcl/src/code/defboot.lisp,v retrieving revision 1.73 retrieving revision 1.74 diff -u -d -r1.73 -r1.74 --- defboot.lisp 21 Jun 2009 10:26:24 -0000 1.73 +++ defboot.lisp 30 Aug 2010 11:13:18 -0000 1.74 @@ -328,7 +328,7 @@ ;;; ASAP, at the cost of being unable to use the standard ;;; destructuring mechanisms. (defmacro-mundanely dotimes ((var count &optional (result nil)) &body body) - (cond ((numberp count) + (cond ((integerp count) `(do ((,var 0 (1+ ,var))) ((>= ,var ,count) ,result) (declare (type unsigned-byte ,var)) |