[armedbear-cvs] r11482 - trunk/abcl/src/org/armedbear/lisp

[Erik Huelsmann]

Author: ehuelsmann
Date: Fri Dec 26 16:06:07 2008
New Revision: 11482

Log:
Followup to r11467: STREAM wasn't in the original list of types.

Found by: mevenson


Modified:
   trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

Modified: trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp
==============================================================================
--- trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	(original)
+++ trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp	Fri Dec 26 16:06:07 2008
@@ -482,9 +482,9 @@
     (or
      (when (fixnum-type-p declared-type) 'FIXNUM)
      (find-if #'(lambda (type) (eq type declared-type))
-	      `(SYMBOL CHARACTER CONS HASH-TABLE STREAM))
+	      '(SYMBOL CHARACTER CONS HASH-TABLE))
      (find-if #'(lambda (type) (subtypep declared-type type)) 
-	      `(STRING VECTOR)))))
+	      '(STRING VECTOR)))))
 
 
 (defknown generate-type-check-for-variable (t) t)