Commit 0c0ebcc6 authored by pfdietz's avatar pfdietz
Browse files

Fixed test bug detected by piso: it's legal for all vectors in an...

Fixed test bug detected by piso: it's legal for all vectors in an implementation to have fill pointers
parent c4a164aa
...@@ -56,8 +56,10 @@ ...@@ -56,8 +56,10 @@
t) t)
(deftest fill-pointer.error.3 (deftest fill-pointer.error.3
(signals-error (fill-pointer (make-array '(10) :fill-pointer nil)) (let ((a (make-array '(10) :fill-pointer nil)))
type-error) (if (array-has-fill-pointer-p a)
t
(eval `(signals-error (fill-pointer ',a) type-error))))
t) t)
(deftest fill-pointer.error.4 (deftest fill-pointer.error.4
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment