X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Freader.lisp;h=69a853fa5bd29096c9fc8d84bf0ec6d3c75c594d;hb=22a6702974b7d6ff4e8f2b3b7b5ff446fc632de0;hp=243fd0cadb2ef7aec3daae6224a6b007da6e9ba3;hpb=c364434c07423e4b033f286397667b3fe0310e97;p=sbcl.git

diff --git a/src/code/reader.lisp b/src/code/reader.lisp
index 243fd0c..69a853f 100644
--- a/src/code/reader.lisp
+++ b/src/code/reader.lisp
@@ -215,12 +215,11 @@
     really-to-readtable))
 
 (defun set-syntax-from-char (to-char from-char &optional
-                                     (to-readtable *readtable*)
-                                     (from-readtable ()))
+                             (to-readtable *readtable*) (from-readtable ()))
   #!+sb-doc
-  "Causes the syntax of TO-CHAR to be the same as FROM-CHAR in the
-  optional readtable (defaults to the current readtable). The
-  FROM-TABLE defaults to the standard Lisp readtable when NIL."
+  "Causes the syntax of TO-CHAR to be the same as FROM-CHAR in the optional
+readtable (defaults to the current readtable). The FROM-TABLE defaults to the
+standard Lisp readtable when NIL."
   (let ((really-from-readtable (or from-readtable *standard-readtable*)))
     (let ((att (get-cat-entry from-char really-from-readtable))
           (mac (get-raw-cmt-entry from-char really-from-readtable))