/[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.92 by rtoy, Tue Apr 20 17:57:45 2010 UTC revision 1.93 by rtoy, Fri Jul 2 02:50:35 2010 UTC
# Line 781  Line 781 
781                                       :state (fd-stream-oc-state stream)                                       :state (fd-stream-oc-state stream)
782                                       :string sbuf                                       :string sbuf
783                                       :s-start 1                                       :s-start 1
784                                       :external-format (fd-stream-external-format stream))                                       :external-format (fd-stream-external-format stream)
785                                         :error (fd-stream-octets-to-char-error stream))
786                   (declare (ignore s))                   (declare (ignore s))
787                   (setf (fd-stream-oc-state stream) new-state)                   (setf (fd-stream-oc-state stream) new-state)
788                   (setf (lisp-stream-string-buffer-len stream) char-count)                   (setf (lisp-stream-string-buffer-len stream) char-count)

Legend:
Removed from v.1.92  
changed lines
  Added in v.1.93

  ViewVC Help
Powered by ViewVC 1.1.5