Commit 719ba344 authored by pfdietz's avatar pfdietz

Fixed potential problem with compile-time error signalling in a test.

parent 229badbf
......@@ -337,15 +337,20 @@
program-error)
(deftest vector-push-extend.error.17
(let ((a (make-array '5 :fill-pointer t :adjustable nil
:initial-element nil)))
(declare (optimize (safety 3)))
(or (notnot (adjustable-array-p a)) ;; It's actually adjustable, or...
(handler-case (vector-push-extend a 'x) ;;; ... this fails
(error () t))))
(handler-case
(eval
`(locally
(declare (optimize (safety 3)))
(let ((a (make-array '5 :fill-pointer t :adjustable nil
:initial-element nil)))
(or (notnot (adjustable-array-p a)) ; It's actually adjustable, or...
(vector-push-extend a 'x) ; ... this fails
))))
(error () t))
t)
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