Changeset 4993

Timestamp:

Aug 22, 2006, 12:49:14 AM (18 years ago)

Author:

Gary Byers

Message:

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

File:

• trunk/ccl/level-1/l1-sysio.lisp (modified) (2 diffs)

trunk/ccl/level-1/l1-sysio.lisp

@@ -75 +75 @@
 
 (defvar *default-external-format* :unix
-  "The value of this variable is used when :EXTERNAL-FORMAT is unspecified
-or specified as :DEFAULT. It can meaningfully be given any of the values
-:UNIX, :MACOS, or :INFERRED, each of which is interpreted as described above.
+  "The value of this variable is used when :EXTERNAL-FORMAT is
+unspecified or specified as :DEFAULT. It can meaningfully be given any
+of the values :UNIX, :MACOS, or :INFERRED, each of which is
+interpreted as described in the documentation.
 
 Because there's some risk that unsolicited newline translation could have
@@ -771 +772 @@
   (basic-file-stream.external-format s))
 
+(defmethod file-stream-external-format ((s basic-file-stream))
+  (basic-file-stream.external-format s))
+
+(defmethod (setf file-stream-external-format) (new (s basic-file-stream))
+  (setf (basic-file-stream.external-format s) new))
+
+
 (defmethod stream-external-format ((s broadcast-stream))
   (let* ((last (last-broadcast-stream s)))