1.0.7.5: allow WITH-INTERRUPTS inside "system locked" sections

[sbcl.git] / src / code / list.lisp

diff --git a/src/code/list.lisp b/src/code/list.lisp
index f15ad9f..5f38f71 100644 (file)
--- a/src/code/list.lisp
+++ b/src/code/list.lisp
@@ -276,7 +276,7 @@
   (declare (type index size))
   (do ((count size (1- count))
        (result '() (cons initial-element result)))
-      ((zerop count) result)
+      ((<= count 0) result)
     (declare (type index count))))
 \f
 (defun append (&rest lists)