/[cmucl]/src/code/stream.lisp
ViewVC logotype

Diff of /src/code/stream.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by wlott, Fri Aug 24 18:14:16 1990 UTC revision 1.5 by ram, Thu Oct 11 18:30:21 1990 UTC
# Line 769  Line 769 
769  (defun string-in-misc (stream operation &optional arg1 arg2)  (defun string-in-misc (stream operation &optional arg1 arg2)
770    (case operation    (case operation
771      (:file-position      (:file-position
772       (if (null arg1)       (if arg1
773         (string-input-stream-current stream)))           (setf (string-input-stream-current stream) arg1)
774             (string-input-stream-current stream)))
775        (:file-length (length (string-input-stream-string stream)))
776      (:read-line      (:read-line
777       (let ((string (string-input-stream-string stream))       (let ((string (string-input-stream-string stream))
778             (current (string-input-stream-current stream))             (current (string-input-stream-current stream))

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

  ViewVC Help
Powered by ViewVC 1.1.5