From: Juho Snellman <jsnell@iki.fi>
Date: Wed, 3 Jan 2007 20:49:54 +0000 (+0000)
Subject: 1.0.1.10:
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=891cee29c305e6c161ba5fe06fc013f915dba262;p=sbcl.git

1.0.1.10:
        Suppress a spurious full warning when compiling (MAKE-LIST 0) with
        a (SPACE 0) policy. (Reported and fix suggested by James Knight).
---

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)
diff --git a/version.lisp-expr b/version.lisp-expr
index 7a2561e..b1b8a0b 100644
--- a/version.lisp-expr
+++ b/version.lisp-expr
@@ -17,4 +17,4 @@
 ;;; checkins which aren't released. (And occasionally for internal
 ;;; versions, especially for internal versions off the main CVS
 ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"1.0.1.9"
+"1.0.1.10"