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

[Erik Huelsmann]

Author: ehuelsmann
Date: Sat Dec 27 19:38:50 2008
New Revision: 11493

Log:
Fix READ-BYTE.ERROR.5 (interpreted version) which was broken since r11482.

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	Sat Dec 27 19:38:50 2008
@@ -484,7 +484,7 @@
      (find-if #'(lambda (type) (eq type declared-type))
 	      '(SYMBOL CHARACTER CONS HASH-TABLE))
      (find-if #'(lambda (type) (subtypep declared-type type)) 
-	      '(STRING VECTOR)))))
+	      '(STRING VECTOR STREAM)))))
 
 
 (defknown generate-type-check-for-variable (t) t)