163 |
(map 'cons #'identity '(a b c)) |
(map 'cons #'identity '(a b c)) |
164 |
(a b c)) |
(a b c)) |
165 |
|
|
166 |
(deftest map-error.1 |
(deftest map.error.1 |
167 |
(handler-case (map 'symbol #'identity '(a b c)) |
(handler-case (map 'symbol #'identity '(a b c)) |
168 |
(error () :caught)) |
(error () :caught)) |
169 |
:caught) |
:caught) |
170 |
|
|
171 |
(deftest map-error.2 |
(deftest map.error.2 |
172 |
(classify-error (map '(vector * 8) #'identity '(a b c))) |
(classify-error (map '(vector * 8) #'identity '(a b c))) |
173 |
type-error) |
type-error) |
174 |
|
|
175 |
(deftest map-error.3 |
(deftest map.error.3 |
176 |
(classify-error (map 'list #'identity '(a b . c))) |
(classify-error (map 'list #'identity '(a b . c))) |
177 |
type-error) |
type-error) |
178 |
|
|
179 |
|
(deftest map.error.4 |
180 |
|
(classify-error (map)) |
181 |
|
program-error) |
182 |
|
|
183 |
|
(deftest map.error.5 |
184 |
|
(classify-error (map 'list)) |
185 |
|
program-error) |
186 |
|
|
187 |
|
(deftest map.error.6 |
188 |
|
(classify-error (map 'list #'null)) |
189 |
|
program-error) |
190 |
|
|
191 |
|
|
192 |
;;; Test mapping on arrays with fill pointers |
;;; Test mapping on arrays with fill pointers |
193 |
|
|