479 |
"The type declaration ~s contains a non-symbol ~s." |
"The type declaration ~s contains a non-symbol ~s." |
480 |
decl var) |
decl var) |
481 |
(push (cons var 'dynamic-extent) ts))) |
(push (cons var 'dynamic-extent) ts))) |
|
((fixnum character double-float short-float array atom bignum bit |
|
|
bit-vector common compiled-function complex cons float hash-table |
|
|
integer keyword list long-float nil null number package pathname |
|
|
random-state ratio rational readtable sequence simple-array |
|
|
simple-bit-vector simple-string simple-vector single-float |
|
|
standard-char stream string string-char symbol t vector boolean |
|
|
signed-byte unsigned-byte) |
|
|
(let ((type (type-filter stype))) |
|
|
(when type |
|
|
(dolist** (var (cdr decl)) |
|
|
(cmpck (not (symbolp var)) |
|
|
"The type declaration ~s contains a non-symbol ~s." |
|
|
decl var) |
|
|
(push (cons var type) ts))))) |
|
482 |
(otherwise |
(otherwise |
483 |
(push decl others)))))))) |
(let ((type (t-to-nil (type-filter stype)))) |
484 |
|
(if type |
485 |
|
(dolist** (var (cdr decl)) |
486 |
|
(cmpck (not (symbolp var)) |
487 |
|
"The type declaration ~s contains a non-symbol ~s." |
488 |
|
decl var) |
489 |
|
(push (cons var type) ts)) |
490 |
|
(push decl others)))))))))) |
491 |
(t (return))) |
(t (return))) |
492 |
(pop body) |
(pop body) |
493 |
) |
) |
|
(dolist (l ts) (push l *decls*)) |
|
494 |
(values body ss ts is others doc) |
(values body ss ts is others doc) |
495 |
) |
) |
496 |
|
|