1.0.3.8: Use an explicit :initial-element 0 when making sset storage vectors

         * Would cause build failures with clisp and abcl
         * Patch by Peter Graves

diff --git a/src/compiler/sset.lisp b/src/compiler/sset.lisp
index 32cf880..702fb4d 100644 (file)
--- a/src/compiler/sset.lisp
+++ b/src/compiler/sset.lisp
@@ -84,7 +84,8 @@
   (let* ((vector (sset-vector set))
          (new-vector (make-array (if (zerop (length vector))
                                      2
-                                     (* (length vector) 2)))))
+                                     (* (length vector) 2))
+                                 :initial-element 0)))
     (setf (sset-vector set) new-vector
           (sset-free set) (length new-vector)
           (sset-count set) 0)

diff --git a/version.lisp-expr b/version.lisp-expr
index 6e32b44..7b1062c 100644 (file)
--- 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.3.7"
+"1.0.3.8"