X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Fdefboot.lisp;h=e04a89dc95e7c819941ff8ee20f4be440a6063d8;hb=83659744f9caa97aa83eb562d872b1c0127403c0;hp=4147b0eabcd0b7f6b5c5ddf7c3c177e2ee42180d;hpb=f181ad9ffeeadf341b6a16c3591eadf0c1e3fa61;p=sbcl.git

diff --git a/src/code/defboot.lisp b/src/code/defboot.lisp
index 4147b0e..e04a89d 100644
--- a/src/code/defboot.lisp
+++ b/src/code/defboot.lisp
@@ -328,7 +328,7 @@ evaluated as a PROGN."
 ;;; 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))