Ignore:
Timestamp:
Aug 22, 2006, 7:49:14 AM (13 years ago)
Author:
gb
Message:

FILE-STREAM-EXTERNAL-FORMAT stuff for BASIC-STREAMs.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/ccl/level-1/l1-sysio.lisp

    r4929 r4993  
    7575
    7676(defvar *default-external-format* :unix
    77   "The value of this variable is used when :EXTERNAL-FORMAT is unspecified
    78 or specified as :DEFAULT. It can meaningfully be given any of the values
    79 :UNIX, :MACOS, or :INFERRED, each of which is interpreted as described above.
     77  "The value of this variable is used when :EXTERNAL-FORMAT is
     78unspecified or specified as :DEFAULT. It can meaningfully be given any
     79of the values :UNIX, :MACOS, or :INFERRED, each of which is
     80interpreted as described in the documentation.
    8081
    8182Because there's some risk that unsolicited newline translation could have
     
    771772  (basic-file-stream.external-format s))
    772773
     774(defmethod file-stream-external-format ((s basic-file-stream))
     775  (basic-file-stream.external-format s))
     776
     777(defmethod (setf file-stream-external-format) (new (s basic-file-stream))
     778  (setf (basic-file-stream.external-format s) new))
     779
     780
    773781(defmethod stream-external-format ((s broadcast-stream))
    774782  (let* ((last (last-broadcast-stream s)))
Note: See TracChangeset for help on using the changeset viewer.