From 6162f24e0d36da8b1a9d74a79c9d48bde5984d83 Mon Sep 17 00:00:00 2001
From: Raymond Toy <toy.raymond@gmail.com>
Date: Fri, 1 Jan 2016 09:25:09 -0800
Subject: [PATCH] Add more to docstring for set-system-external-format.

---
 src/code/extfmts.lisp | 9 ++++++---
 1 file changed, 6 insertions(+), 3 deletions(-)

diff --git a/src/code/extfmts.lisp b/src/code/extfmts.lisp
index a389dcb9b..9efcb0a6f 100644
--- a/src/code/extfmts.lisp
+++ b/src/code/extfmts.lisp
@@ -1133,9 +1133,12 @@ character and illegal outputs are replaced by a question mark.")
   The standard streams are sys::*stdin*, sys::*stdout*, and
   sys::*stderr*, which are normally the input and/or output streams
   for *standard-input* and *standard-output*.  Also sets sys::*tty*
-  (normally *terminal-io* to the given external format.  If the
-  optional argument Filenames is gvien, then the filename encoding is
-  set to the specified format."
+  (normally *terminal-io* to the given external format.  The value of
+  *default-external-format* is not changed.
+
+  If the optional argument Filenames is given, then the filename
+  encoding is set to the specified format, if it has not already been
+  specified previously."
   (unless (find-external-format terminal)
     (error (intl:gettext "Can't find external-format ~S.") terminal))
   (setf (stream-external-format sys:*stdin*) terminal
-- 
GitLab