1.0.24.17: grab-bag of fixes to make hpux-os smile

[sbcl.git] / tests / array.pure.lisp

diff --git a/tests/array.pure.lisp b/tests/array.pure.lisp
index 21088fc..b07f5e3 100644 (file)
--- a/tests/array.pure.lisp
+++ b/tests/array.pure.lisp
@@ -246,6 +246,6 @@
     (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)))))))