473 |
decl var) |
decl var) |
474 |
(push (cons var 'register) ts) |
(push (cons var 'register) ts) |
475 |
)) |
)) |
476 |
|
((:dynamic-extent dynamic-extent) |
477 |
|
(dolist** (var (cdr decl)) |
478 |
|
(cmpck (not (symbolp var)) |
479 |
|
"The type declaration ~s contains a non-symbol ~s." |
480 |
|
decl var) |
481 |
|
(push (cons var :dynamic-extent) ts))) |
482 |
((fixnum character double-float short-float array atom bignum bit |
((fixnum character double-float short-float array atom bignum bit |
483 |
bit-vector common compiled-function complex cons float hash-table |
bit-vector common compiled-function complex cons float hash-table |
484 |
integer keyword list long-float nil null number package pathname |
integer keyword list long-float nil null number package pathname |
485 |
random-state ratio rational readtable sequence simple-array |
random-state ratio rational readtable sequence simple-array |
486 |
simple-bit-vector simple-string simple-vector single-float |
simple-bit-vector simple-string simple-vector single-float |
487 |
standard-char stream string string-char symbol t vector |
standard-char stream string string-char symbol t vector boolean |
488 |
signed-byte unsigned-byte :dynamic-extent) |
signed-byte unsigned-byte) |
489 |
(let ((type (if (eq stype ':dynamic-extent) stype |
(let ((type (type-filter stype))) |
|
(type-filter stype)))) |
|
490 |
(when type |
(when type |
491 |
(dolist** (var (cdr decl)) |
(dolist** (var (cdr decl)) |
492 |
(cmpck (not (symbolp var)) |
(cmpck (not (symbolp var)) |