Changeset 11482


Ignore:
Timestamp:
12/26/08 16:06:07 (13 years ago)
Author:
ehuelsmann
Message:

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

Found by: mevenson

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/compiler-pass2.lisp

    r11480 r11482  
    483483     (when (fixnum-type-p declared-type) 'FIXNUM)
    484484     (find-if #'(lambda (type) (eq type declared-type))
    485         `(SYMBOL CHARACTER CONS HASH-TABLE STREAM))
     485        '(SYMBOL CHARACTER CONS HASH-TABLE))
    486486     (find-if #'(lambda (type) (subtypep declared-type type))
    487         `(STRING VECTOR)))))
     487        '(STRING VECTOR)))))
    488488
    489489
Note: See TracChangeset for help on using the changeset viewer.