46 |
((or (eq type 'simple-vector) (eq type 'vector)) t) |
((or (eq type 'simple-vector) (eq type 'vector)) t) |
47 |
(t |
(t |
48 |
(setq type (normalize-type type)) |
(setq type (normalize-type type)) |
49 |
(when (member (car type) '(cons nil));(subtypep (car type) 'list) |
(when (member (car type) '(cons null));(subtypep (car type) 'list) |
50 |
(if (or (and (eq 'null (car type)) (not (equal size 0))) |
(if (or (and (eq 'null (car type)) (not (equal size 0))) |
51 |
(and (eq 'cons (car type)) (equal size 0))) |
(and (eq 'cons (car type)) (equal size 0))) |
52 |
(specific-error :wrong-type-argument "~S is not of type ~S." |
(specific-error :wrong-type-argument "~S is not of type ~S." |