188 |
|
|
189 |
(deftest concatenate-error.1 |
(deftest concatenate-error.1 |
190 |
(handler-case |
(handler-case |
191 |
(concatenate 'sequence '(a b c)) |
(progn (proclaim '(optimize (safety 3))) |
192 |
|
(eval '(concatenate 'sequence '(a b c)))) |
193 |
(error () :caught)) |
(error () :caught)) |
194 |
:caught) |
:caught) |
195 |
|
|
196 |
(deftest concatenate-error.2 |
(deftest concatenate-error.2 |
197 |
(handler-case (concatenate 'fixnum '(a b c d e)) |
(handler-case |
198 |
(error () :caught)) |
(progn (proclaim '(optimize (safety 3))) |
199 |
|
(concatenate 'fixnum '(a b c d e))) |
200 |
|
(error () :caught)) |
201 |
:caught) |
:caught) |
202 |
|
|
203 |
(deftest concatenate-error.3 |
(deftest concatenate-error.3 |
207 |
(deftest concatenate-error.4 |
(deftest concatenate-error.4 |
208 |
(classify-error (concatenate)) |
(classify-error (concatenate)) |
209 |
program-error) |
program-error) |
210 |
|
|
211 |
|
(deftest concatenate-error.5 |
212 |
|
(classify-error (locally (concatenate '(vector * 3) '(a b c d e)) t)) |
213 |
|
type-error) |