254 |
t) |
t) |
255 |
|
|
256 |
(deftest map.error.10 |
(deftest map.error.10 |
257 |
|
:notes (:result-type-element-type-by-subtype) |
258 |
(let ((type '(or (vector bit) (vector t)))) |
(let ((type '(or (vector bit) (vector t)))) |
259 |
(if (subtypep type 'vector) |
(if (subtypep type 'vector) |
260 |
(eval `(signals-error-always (map ',type #'identity '(1 0 1)) error)) |
(eval `(signals-error-always (map ',type #'identity '(1 0 1)) error)) |
385 |
for result = (map `(vector ,type) #'identity vals) |
for result = (map `(vector ,type) #'identity vals) |
386 |
unless (and (= (length result) len) |
unless (and (= (length result) len) |
387 |
(every #'eql vals result)) |
(every #'eql vals result)) |
388 |
collect (list i vals result)) |
collect (list type vals result)) |
389 |
nil) |
nil) |
390 |
|
|
391 |
(deftest map.specialized-vector.7 |
(deftest map.specialized-vector.7 |
398 |
for result = (map `(vector ,type) #'identity vals) |
for result = (map `(vector ,type) #'identity vals) |
399 |
unless (and (= (length result) len) |
unless (and (= (length result) len) |
400 |
(every #'eql vals result)) |
(every #'eql vals result)) |
401 |
collect (list i vals result)) |
collect (list type vals result)) |
402 |
nil) |
nil) |
403 |
|
|
404 |
;;; Order of evaluation tests |
;;; Order of evaluation tests |