Changeset 14070
- Timestamp:
- 08/11/12 12:07:52 (8 years ago)
- Location:
- trunk/abcl/src/org/armedbear/lisp
- Files:
-
- 3 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/abcl/src/org/armedbear/lisp/byte-io.lisp
r11391 r14070 34 34 (defun write-byte (byte stream) 35 35 (declare (type stream stream)) 36 (let ((element-type ( stream-element-type stream)))36 (let ((element-type (expand-deftype (stream-element-type stream)))) 37 37 (require-type byte element-type) 38 38 (let ((width (cadr element-type))) … … 49 49 (defun read-byte (stream &optional (eof-error-p t) eof-value) 50 50 (declare (type stream stream)) 51 (let* ((element-type ( stream-element-type stream)))51 (let* ((element-type (expand-deftype (stream-element-type stream)))) 52 52 (unless element-type 53 53 (if eof-error-p -
trunk/abcl/src/org/armedbear/lisp/read-sequence.lisp
r11391 r14070 38 38 (require-type end '(integer 0)) 39 39 (setf end (length sequence))) 40 (let* ((element-type ( stream-element-type stream)))40 (let* ((element-type (expand-deftype (stream-element-type stream)))) 41 41 (cond ((eq element-type 'character) 42 42 (do ((pos start (1+ pos))) -
trunk/abcl/src/org/armedbear/lisp/write-sequence.lisp
r11391 r14070 46 46 (setf end (length sequence))) 47 47 (let ((end (the fixnum end)) 48 (stream-element-type ( stream-element-type stream)))48 (stream-element-type (expand-deftype (stream-element-type stream)))) 49 49 (cond ((eq stream-element-type 'character) 50 50 (if (stringp sequence)
Note: See TracChangeset
for help on using the changeset viewer.