Changeset 11493

Timestamp:

12/27/08 19:38:50 (14 years ago)

Author:

ehuelsmann

Message:

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

File:

• trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp (modified) (1 diff)

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

@@ -485 +485 @@
         '(SYMBOL CHARACTER CONS HASH-TABLE))
      (find-if #'(lambda (type) (subtypep declared-type type)) 
-        '(STRING VECTOR)))))
+        '(STRING VECTOR STREAM)))))