1.0.23.24: fix bad test for ARRAY-STORAGE-VECTOR
authorNikodemus Siivola <nikodemus@random-state.net>
Fri, 5 Dec 2008 13:16:21 +0000 (13:16 +0000)
committerNikodemus Siivola <nikodemus@random-state.net>
Fri, 5 Dec 2008 13:16:21 +0000 (13:16 +0000)
 * How many problems can a trivial change have? Moral: don't do manual
   cherry-picking. It always goes wrong.

tests/array.pure.lisp
version.lisp-expr

index 21088fc..b07f5e3 100644 (file)
     (assert (eq 'fixnum (array-element-type
                          (sb-ext:array-storage-vector (make-array '(3 4 5)
                                                                  :element-type 'fixnum)))))
-    (assert (equalp (vector 1 2 3 4 0)
-                    (sb-ext:array-storage-vector
-                     (make-array 5 :fill-pointer 4))))))
+    (assert (not (array-has-fill-pointer-p
+                  (sb-ext::array-storage-vector
+                   (make-array 5 :fill-pointer 4)))))))
index cf8b908..08fe8b7 100644 (file)
@@ -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.23.23"
+"1.0.23.24"