/[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.90.2.4 by rtoy, Fri Aug 28 02:26:56 2009 UTC revision 1.90.2.5 by rtoy, Fri Aug 28 14:28:55 2009 UTC
# Line 1386  Line 1386 
1386              ;; (unsigned-byte 8) or character streams with an external              ;; (unsigned-byte 8) or character streams with an external
1387              ;; format of :iso8859-1.  Because there's no buffer, the              ;; format of :iso8859-1.  Because there's no buffer, the
1388              ;; other element-types will dispatch to the appropriate              ;; other element-types will dispatch to the appropriate
1389              ;; input (output) routine in fast-read-byte.              ;; input (output) routine in fast-read-byte/fast-read-char.
1390              (setf (lisp-stream-in-buffer stream)              (setf (lisp-stream-in-buffer stream)
1391                    (make-array in-buffer-length                    (make-array in-buffer-length
1392                                :element-type '(unsigned-byte 8)))))                                :element-type '(unsigned-byte 8)))))
# Line 1745  Line 1745 
1745                                       :pathname pathname                                       :pathname pathname
1746                                       :buffering buffering                                       :buffering buffering
1747                                       :timeout timeout))))                                       :timeout timeout))))
1748        ;; FIXME: setting the external format here should be better
1749        ;; integrated into set-routines.  We do it before so that
1750        ;; set-routines can create an in-buffer if appropriate.  But we
1751        ;; need to do it after to put the correct input routines for the
1752        ;; external format.
1753        ;;
1754      ;;#-unicode-bootstrap ; fails in stream-reinit otherwise      ;;#-unicode-bootstrap ; fails in stream-reinit otherwise
1755      #+(and unicode (not unicode-bootstrap))      #+(and unicode (not unicode-bootstrap))
1756      (setf (stream-external-format stream) external-format)      (setf (stream-external-format stream) external-format)
1757      (set-routines stream element-type input output input-buffer-p      (set-routines stream element-type input output input-buffer-p
1758                    :binary-stream-p binary-stream-p)                    :binary-stream-p binary-stream-p)
1759        #+(and unicode (not unicode-bootstrap))
1760        (setf (stream-external-format stream) external-format)
1761      (when (and auto-close (fboundp 'finalize))      (when (and auto-close (fboundp 'finalize))
1762        (finalize stream        (finalize stream
1763                  #'(lambda ()                  #'(lambda ()

Legend:
Removed from v.1.90.2.4  
changed lines
  Added in v.1.90.2.5

  ViewVC Help
Powered by ViewVC 1.1.5