Changeset 11627
- Timestamp:
- Jan 19, 2009, 7:54:15 PM (11 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/source/level-1/l1-streams.lisp
r11546 r11627 1940 1940 (incf col)) 1941 1941 (if (< code limit) 1942 1943 1942 (%ioblock-write-u8-element ioblock code) 1943 (funcall encode-function char #'%ioblock-write-u8-element ioblock))))) 1944 1944 1945 1945 … … 2679 2679 (setf (ioblock-sharing ioblock) sharing) 2680 2680 (when character-p 2681 (setf (ioblock-unread-char-function ioblock) '%ioblock-untyi)2681 (setf (ioblock-unread-char-function ioblock) (select-stream-untyi-function (ioblock-stream ioblock) :input)) 2682 2682 (setf (ioblock-decode-literal-code-unit-limit ioblock) 2683 2683 (if encoding … … 5982 5982 5983 5983 5984 (defmethod select-stream-untyi-function ((s symbol) direction) 5985 (select-stream-untyi-function (find-class s) direction)) 5986 5987 (defmethod select-stream-untyi-function ((c class) direction) 5988 (select-stream-untyi-function (class-prototype c) direction)) 5989 5990 (defmethod select-stream-untyi-function ((s fd-stream) (direction t)) 5991 '%ioblock-untyi) 5992 5993 (defmethod select-stream-untyi-function ((s basic-stream) (direction t)) 5994 '%ioblock-untyi) 5984 5995 5985 5996 ; end of L1-streams.lisp
Note: See TracChangeset
for help on using the changeset viewer.