Changeset 14070 for trunk/abcl/src/org/armedbear/lisp/read-sequence.lisp

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:

• trunk/abcl/src/org/armedbear/lisp/read-sequence.lisp (modified) (1 diff)

trunk/abcl/src/org/armedbear/lisp/read-sequence.lisp

@@ -38 +38 @@
       (require-type end '(integer 0))
       (setf end (length sequence)))
-  (let* ((element-type (stream-element-type stream)))
+  (let* ((element-type (expand-deftype (stream-element-type stream))))
     (cond ((eq element-type 'character)
            (do ((pos start (1+ pos)))