mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-01 23:30:40 -08:00
Code Issues Projects Releases Packages Wiki Activity

Remove list. The test with valid-type-specifier suffices and is almost as fast.

Browse source
This commit is contained in:
jgarcia 2006-04-24 08:44:56 +00:00
parent db290fc2dd
commit d544ad51f4
1 changed files with 0 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

10
src/cmp/cmpenv.lsp
View file

@ -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)