157 |
"1234") |
"1234") |
158 |
|
|
159 |
(deftest map-into-error.1 |
(deftest map-into-error.1 |
160 |
(handler-case (map-into 'a #'(lambda () nil)) |
(classify-error (map-into 'a #'(lambda () nil))) |
|
(type-error (c) 'type-error) |
|
|
(error (c) c)) |
|
161 |
type-error) |
type-error) |
162 |
|
|
163 |
(deftest map-into-error.2 |
(deftest map-into-error.2 |
164 |
(handler-case (map-into nil #'identity 'a) |
(classify-error (map-into nil #'identity 'a)) |
|
(type-error (c) 'type-error) |
|
|
(error (c) c)) |
|
165 |
type-error) |
type-error) |
166 |
|
|
167 |
(deftest map-into-error.3 |
(deftest map-into-error.3 |
168 |
(handler-case (map-into (copy-seq '(a b c)) #'cons '(d e f) 100) |
(classify-error (map-into (copy-seq '(a b c)) #'cons '(d e f) 100)) |
|
(type-error (c) 'type-error) |
|
|
(error (c) c)) |
|
169 |
type-error) |
type-error) |
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|