X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Flist.lisp;h=5f38f7126e26bace475fecfc625c22a0490b9c48;hb=cf0b72cd4052a09b9a305081524bd44e2948c1e5;hp=f15ad9f8aa0fd68f770900b2d77d1847527397e9;hpb=abd50c820df25616883a6850df1780044365137e;p=sbcl.git

diff --git a/src/code/list.lisp b/src/code/list.lisp
index f15ad9f..5f38f71 100644
--- 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))))
 
 (defun append (&rest lists)