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

Diff of /src/code/fd-stream.lisp

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

revision 1.85.4.1.2.1 by rtoy, Wed Jul 2 01:22:07 2008 UTC revision 1.85.4.1.2.2 by rtoy, Wed Jul 2 14:53:44 2008 UTC
# Line 1732  Line 1732 
1732                                       :timeout timeout))))                                       :timeout timeout))))
1733      (set-routines stream element-type input output input-buffer-p      (set-routines stream element-type input output input-buffer-p
1734                    :binary-stream-p binary-stream-p)                    :binary-stream-p binary-stream-p)
1735        #-unicode-bootstrap ; fails in stream-reinit otherwise
1736      (setf (stream-external-format stream) external-format)      (setf (stream-external-format stream) external-format)
1737      (when (and auto-close (fboundp 'finalize))      (when (and auto-close (fboundp 'finalize))
1738        (finalize stream        (finalize stream

Legend:
Removed from v.1.85.4.1.2.1  
changed lines
  Added in v.1.85.4.1.2.2

  ViewVC Help
Powered by ViewVC 1.1.5