/[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.101 by rtoy, Mon Jun 27 15:05:27 2011 UTC revision 1.102 by rtoy, Wed Jun 29 00:55:04 2011 UTC
# Line 851  Line 851 
851                              (setf (lisp-stream-string-buffer-len stream) (1+ char-count))                              (setf (lisp-stream-string-buffer-len stream) (1+ char-count))
852                              (setf (lisp-stream-string-index stream) 2)                              (setf (lisp-stream-string-index stream) 2)
853                              (setf (lisp-stream-in-index stream) octet-count)                              (setf (lisp-stream-in-index stream) octet-count)
                             ;; If we didn't convert all the octets,  
                             ;; adjust the head pointer to indicate  
                             ;; that we have unread octets left.  
                             #+nil  
                             (decf (lisp::fd-stream-ibuf-head stream)  
                                   (- (fd-stream-in-length stream) octet-count))  
854                              #+(or debug-frc-sr)                              #+(or debug-frc-sr)
855                              (progn                              (progn
856                                (format t "new in-index = ~A~%" (lisp-stream-in-index stream))                                (format t "new in-index = ~A~%" (lisp-stream-in-index stream))

Legend:
Removed from v.1.101  
changed lines
  Added in v.1.102

  ViewVC Help
Powered by ViewVC 1.1.5