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/byte-io.lisp

    r11391 r14070  
    3434(defun write-byte (byte stream)
    3535  (declare (type stream stream))
    36   (let ((element-type (stream-element-type stream)))
     36  (let ((element-type (expand-deftype (stream-element-type stream))))
    3737    (require-type byte element-type)
    3838    (let ((width (cadr element-type)))
     
    4949(defun read-byte (stream &optional (eof-error-p t) eof-value)
    5050  (declare (type stream stream))
    51   (let* ((element-type (stream-element-type stream)))
     51  (let* ((element-type (expand-deftype (stream-element-type stream))))
    5252    (unless element-type
    5353      (if eof-error-p
Note: See TracChangeset for help on using the changeset viewer.