/[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.26 by dtc, Fri Oct 24 18:08:03 1997 UTC revision 1.27 by pw, Tue Feb 3 19:02:16 1998 UTC
# Line 919  Line 919 
919      (:listen (or (/= (the fixnum (string-input-stream-current stream))      (:listen (or (/= (the fixnum (string-input-stream-current stream))
920                       (the fixnum (string-input-stream-end stream)))                       (the fixnum (string-input-stream-end stream)))
921                   :eof))                   :eof))
922      (:element-type 'string-char)))      (:element-type 'base-char)))
923    
924  (defun make-string-input-stream (string &optional  (defun make-string-input-stream (string &optional
925                                          (start 0) (end (length string)))                                          (start 0) (end (length string)))
# Line 1001  Line 1001 
1001                  (fixnum index count))                  (fixnum index count))
1002         (if (char= (schar string index) #\newline)         (if (char= (schar string index) #\newline)
1003             (return count))))             (return count))))
1004      (:element-type 'string-char)))      (:element-type 'base-char)))
1005    
1006  (defun get-output-stream-string (stream)  (defun get-output-stream-string (stream)
1007    "Returns a string of all the characters sent to a stream made by    "Returns a string of all the characters sent to a stream made by
# Line 1103  Line 1103 
1103             (if found             (if found
1104                 (- end (the fixnum found))                 (- end (the fixnum found))
1105                 current)))))                 current)))))
1106       (:element-type 'string-char)))       (:element-type 'base-char)))
1107    
1108  ;;;; Indenting streams:  ;;;; Indenting streams:
1109    

Legend:
Removed from v.1.26  
changed lines
  Added in v.1.27

  ViewVC Help
Powered by ViewVC 1.1.5