Index: /trunk/ccl/level-1/l1-sysio.lisp
===================================================================
--- /trunk/ccl/level-1/l1-sysio.lisp	(revision 4992)
+++ /trunk/ccl/level-1/l1-sysio.lisp	(revision 4993)
@@ -75,7 +75,8 @@
 
 (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,4 +772,11 @@
   (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)))