143 |
;;; If the coerce call is folded to a constant, this will fail |
;;; If the coerce call is folded to a constant, this will fail |
144 |
;;; when that constant is modified. |
;;; when that constant is modified. |
145 |
|
|
146 |
(deftest coerce.fold.1 |
(def-fold-test coerce.fold.1 (coerce '(1 2 3) 'vector)) |
147 |
(flet ((%f () (declare (optimize speed (safety 0))) |
(def-fold-test coerce.fold.2 (coerce '(1 0 1) 'bit-vector)) |
148 |
(coerce '(1 2 3) 'vector))) |
(def-fold-test coerce.fold.3 (coerce '(#\a #\b #\c) 'string)) |
|
(values |
|
|
(%f) |
|
|
(let ((v (%f))) |
|
|
(setf (aref v 0) 0) |
|
|
v) |
|
|
(%f))) |
|
|
#(1 2 3) |
|
|
#(0 2 3) |
|
|
#(1 2 3)) |
|
|
|
|
149 |
|
|
150 |
;;; Error tests |
;;; Error tests |
151 |
|
|