diff --git a/src/cmp/cmpenv.lsp b/src/cmp/cmpenv.lsp index 3c7ce4945..ebfb72e02 100644 --- a/src/cmp/cmpenv.lsp +++ b/src/cmp/cmpenv.lsp @@ -320,17 +320,7 @@ ((OPTIMIZE FTYPE INLINE NOTINLINE DECLARATION SI::C-LOCAL SI::C-GLOBAL DYNAMIC-EXTENT IGNORABLE VALUES) (push decl others)) - ((FIXNUM BASE-CHAR EXTENDED-CHAR CHARACTER DOUBLE-FLOAT SHORT-FLOAT ARRAY ATOM BIGNUM BIT - BIT-VECTOR 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 SYMBOL T VECTOR - SIGNED-BYTE UNSIGNED-BYTE FUNCTION) - (declare-variables (type-filter decl-name) decl-args)) (otherwise - #+nil - (push decl others) (if (member decl-name si::*alien-declarations*) (push decl others) (multiple-value-bind (ok type)