/[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.94 by rtoy, Fri Jan 22 13:28:26 2010 UTC revision 1.95 by rtoy, Sat Jan 23 03:00:07 2010 UTC
# Line 1808  Line 1808 
1808      (set-routines stream element-type input output input-buffer-p      (set-routines stream element-type input output input-buffer-p
1809                    :binary-stream-p binary-stream-p)                    :binary-stream-p binary-stream-p)
1810      #+(and unicode (not unicode-bootstrap))      #+(and unicode (not unicode-bootstrap))
1811      (when lisp::*enable-stream-buffer-p*      (%set-fd-stream-external-format stream external-format nil)
       (%set-fd-stream-external-format stream external-format nil))  
1812      (when (and auto-close (fboundp 'finalize))      (when (and auto-close (fboundp 'finalize))
1813        (finalize stream        (finalize stream
1814                  #'(lambda ()                  #'(lambda ()

Legend:
Removed from v.1.94  
changed lines
  Added in v.1.95

  ViewVC Help
Powered by ViewVC 1.1.5