337 |
program-error) |
program-error) |
338 |
|
|
339 |
(deftest vector-push-extend.error.17 |
(deftest vector-push-extend.error.17 |
340 |
(let ((a (make-array '5 :fill-pointer t :adjustable nil |
(handler-case |
341 |
:initial-element nil))) |
(eval |
342 |
(declare (optimize (safety 3))) |
`(locally |
343 |
(or (notnot (adjustable-array-p a)) ;; It's actually adjustable, or... |
(declare (optimize (safety 3))) |
344 |
(handler-case (vector-push-extend a 'x) ;;; ... this fails |
(let ((a (make-array '5 :fill-pointer t :adjustable nil |
345 |
(error () t)))) |
:initial-element nil))) |
346 |
|
(or (notnot (adjustable-array-p a)) ; It's actually adjustable, or... |
347 |
|
(vector-push-extend a 'x) ; ... this fails |
348 |
|
)))) |
349 |
|
(error () t)) |
350 |
t) |
t) |
351 |
|
|
352 |
|
|
353 |
|
|
354 |
|
|
355 |
|
|
356 |
|
|