Merged systems-work sources as of this date:
.../systems-work/code/stream.lisp, 27-May-90 14:11:17, Edit by Chiles and Wlott. Changed the semantics of the :listen misc method for streams. It now distinguishes between eof and no obvious input for other reasons. This was necessary to correctly implement READ-CHAR-NO-HANG. LISTEN no tests the result of calling the :listen misc method for being explicitly t. When it is :eof or nil, LISTEN should return nil. READ-CHAR-NO-HANG no calls the :listen misc method directly instead of calling LISTEN. When the method returns t or :eof, it calls READ-CHAR to appropriately deal with returning the character or screaming because of eof. Modified the :listen misc method for concatenated streams. It failed to step to the next stream when the current one hit eof. Modified the :listen misc method for string-input stream. They never return nil since they either have more characters, or they are at :eof. .../code/stream.lisp, 26-Apr-90 18:46:58, Edit by Wlott. Make two-way streams force-output on the output side before passing any input requests on to the input side. .../systems-work/code/stream.lisp, 22-Mar-90 22:20:05, Edit by Chiles. Made the string-input-stream structure definition no longer specify :constructor nil in addition to defining one with a name.
Loading
Please register or sign in to comment