Ignore:
Timestamp:
08/11/12 12:07:52 (9 years ago)
Author:
ehuelsmann
Message:

Expand types before checking them: fixes Drakma.

Patch by Stas Boukarev.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/abcl/src/org/armedbear/lisp/read-sequence.lisp

    r11391 r14070  
    3838      (require-type end '(integer 0))
    3939      (setf end (length sequence)))
    40   (let* ((element-type (stream-element-type stream)))
     40  (let* ((element-type (expand-deftype (stream-element-type stream))))
    4141    (cond ((eq element-type 'character)
    4242           (do ((pos start (1+ pos)))
Note: See TracChangeset for help on using the changeset viewer.