Commit 0c0ebcc6 authored by pfdietz's avatar pfdietz

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 @@
t)
(deftest fill-pointer.error.3
(signals-error (fill-pointer (make-array '(10) :fill-pointer nil))
type-error)
(let ((a (make-array '(10) :fill-pointer nil)))
(if (array-has-fill-pointer-p a)
t
(eval `(signals-error (fill-pointer ',a) type-error))))
t)
(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