X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Fstream.lisp;h=6ff6a911773d023c47ca4d9aabc7c613424476e8;hb=771b864c8f32af7734bc0550aeaf1539fc4df194;hp=bd541c69c15fdfb3393581f37a64e84cd8cf2d54;hpb=dfa8294a1580e8aa099a92baebba7d9caddb2fcb;p=sbcl.git

diff --git a/src/code/stream.lisp b/src/code/stream.lisp
index bd541c6..6ff6a91 100644
--- a/src/code/stream.lisp
+++ b/src/code/stream.lisp
@@ -1399,7 +1399,7 @@
 	(indentation (indenting-stream-indentation ,stream)))
        ((>= i indentation))
      (%write-string
-      "							    "
+      #.(make-string 60 :initial-element #\Space)
       ,sub-stream
       0
       (min 60 (- indentation i)))))
@@ -1472,12 +1472,12 @@
   #!+sb-doc
   "Return a stream that sends all output to the stream TARGET, but modifies
    the case of letters, depending on KIND, which should be one of:
-     :upcase - convert to upper case.
-     :downcase - convert to lower case.
-     :capitalize - convert the first letter of words to upper case and the
-	rest of the word to lower case.
-     :capitalize-first - convert the first letter of the first word to upper
-	case and everything else to lower case."
+     :UPCASE - convert to upper case.
+     :DOWNCASE - convert to lower case.
+     :CAPITALIZE - convert the first letter of words to upper case and the
+        rest of the word to lower case.
+     :CAPITALIZE-FIRST - convert the first letter of the first word to upper
+        case and everything else to lower case."
   (declare (type stream target)
 	   (type (member :upcase :downcase :capitalize :capitalize-first)
 		 kind)