478 |
(cmpck (not (symbolp var)) |
(cmpck (not (symbolp var)) |
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))) |
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 |