From d544ad51f41fe2fa5ee1444ec0245d313474db7c Mon Sep 17 00:00:00 2001
From: jgarcia <jgarcia>
Date: Mon, 24 Apr 2006 08:44:56 +0000
Subject: [PATCH] Remove list. The test with valid-type-specifier suffices and
 is almost as fast.

---
 src/cmp/cmpenv.lsp | 10 ----------
 1 file changed, 10 deletions(-)

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)