/[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.94.4.3 by rtoy, Thu Sep 2 23:47:31 2010 UTC revision 1.94.4.4 by rtoy, Fri Sep 3 02:18:53 2010 UTC
# Line 738  Line 738 
738        (format t "in-length = ~A~%" in-length)        (format t "in-length = ~A~%" in-length)
739        (format t "ibuf before = ~A~%" ibuf)        (format t "ibuf before = ~A~%" ibuf)
740        (format t "sbuf before = ~S~%" (subseq (lisp-stream-string-buffer stream) 0        (format t "sbuf before = ~S~%" (subseq (lisp-stream-string-buffer stream) 0
741                                               (1+ (lisp-stream-string-buffer-len stream)))))                                               (lisp-stream-string-buffer-len stream))))
742    
743      ;; Copy the stuff we haven't read from in-buffer to the beginning      ;; Copy the stuff we haven't read from in-buffer to the beginning
744      ;; of the buffer.      ;; of the buffer.
# Line 798  Line 798 
798                 #+(or debug-frc-sr)                 #+(or debug-frc-sr)
799                 (format t "slen = ~A~%" slen)                 (format t "slen = ~A~%" slen)
800                 (when (plusp slen)                 (when (plusp slen)
801                   (setf (schar sbuf 0) (schar sbuf slen)))                   (setf (schar sbuf 0) (schar sbuf (1- slen))))
802                 #+(or debug-frc-sr)                 #+(or debug-frc-sr)
803                 (progn                 (progn
804                   (format t "sbuf[0] = ~S~%" (schar sbuf 0))                   (format t "sbuf[0] = ~S~%" (schar sbuf 0))
# Line 852  Line 852 
852                                        (lisp-stream-string-buffer-len stream))                                        (lisp-stream-string-buffer-len stream))
853                                  (funcall (lisp-stream-in stream) stream eof-errorp eof-value))                                  (funcall (lisp-stream-in stream) stream eof-errorp eof-value))
854                                 (t                                 (t
855                                    (setf (fd-stream-in-length stream) (+ count index))
856                                  (convert-buffer)))))))))))))                                  (convert-buffer)))))))))))))
857    
858  ;;; FAST-READ-BYTE-REFILL  --  Interface  ;;; FAST-READ-BYTE-REFILL  --  Interface

Legend:
Removed from v.1.94.4.3  
changed lines
  Added in v.1.94.4.4

  ViewVC Help
Powered by ViewVC 1.1.5