1.0.15.23: typos and grammar

 * Fix manpage typo: "inplements". Thanks to Eugene "Oversight"
   Ossintsev.

 * Fix PPRINT-INDENT docstring: s/is it is a/is a/. Thanks to Cyrus
   "Hawkeye" Harmon.

diff --git a/doc/sbcl.1 b/doc/sbcl.1
index 621eaef..b08c730 100644 (file)
--- a/doc/sbcl.1
+++ b/doc/sbcl.1
@@ -144,7 +144,7 @@ low-level Unix interface, the WIRE protocol, various user-level macros
 and functions (\fIe.g.\fR \f(CRLETF\fR, \f(CRITERATE\fR, \f(CRMEMQ\fR,
 \f(CRREQUIRED\-ARGUMENT\fR), and many others.
 
-SBCL inplements multithreading, but in a completely different fashion
+SBCL implements multithreading, but in a completely different fashion
 from CMU CL: see the User Manual for details. As of 1.0.13 this is
 still considered beta-quality and must be explicitly enabled at build
 time.

diff --git a/src/code/pprint.lisp b/src/code/pprint.lisp
index 8d2de3b..8798367 100644 (file)
--- a/src/code/pprint.lisp
+++ b/src/code/pprint.lisp
@@ -707,15 +707,19 @@
 
 (defun pprint-indent (relative-to n &optional stream)
   #!+sb-doc
-  "Specify the indentation to use in the current logical block if STREAM
-   (which defaults to *STANDARD-OUTPUT*) is it is a pretty-printing stream
-   and do nothing if not. (See PPRINT-LOGICAL-BLOCK.)  N is the indentation
-   to use (in ems, the width of an ``m'') and RELATIVE-TO can be either:
+  "Specify the indentation to use in the current logical block if
+STREAM \(which defaults to *STANDARD-OUTPUT*) is a pretty-printing
+stream and do nothing if not. (See PPRINT-LOGICAL-BLOCK.) N is the
+indentation to use (in ems, the width of an ``m'') and RELATIVE-TO can
+be either:
+
      :BLOCK - Indent relative to the column the current logical block
         started on.
+
      :CURRENT - Indent relative to the current column.
-   The new indentation value does not take effect until the following line
-   break."
+
+The new indentation value does not take effect until the following
+line break."
   (declare (type (member :block :current) relative-to)
            (type real n)
            (type (or stream (member t nil)) stream)