207 |
;;; Error tests |
;;; Error tests |
208 |
|
|
209 |
(deftest concatenate.error.1 |
(deftest concatenate.error.1 |
210 |
(handler-case |
(subtypep* (classify-error (concatenate 'sequence '(a b c))) 'error) |
211 |
(progn (proclaim '(optimize (safety 3))) |
t t) |
|
(eval '(concatenate 'sequence '(a b c)))) |
|
|
(error () :caught)) |
|
|
:caught) |
|
212 |
|
|
213 |
(deftest concatenate.error.2 |
(deftest concatenate.error.2 |
214 |
(handler-case |
(subtypep* (classify-error (concatenate 'fixnum '(a b c d e))) 'error) |
215 |
(progn (proclaim '(optimize (safety 3))) |
t t) |
|
(concatenate 'fixnum '(a b c d e))) |
|
|
(error () :caught)) |
|
|
:caught) |
|
216 |
|
|
217 |
(deftest concatenate.error.3 |
(deftest concatenate.error.3 |
218 |
(classify-error (concatenate '(vector * 3) '(a b c d e))) |
(classify-error (concatenate '(vector * 3) '(a b c d e))) |