From 06a90889d63a4c3f03104921be172965df22045b Mon Sep 17 00:00:00 2001 From: Nikodemus Siivola Date: Thu, 13 Mar 2008 11:07:45 +0000 Subject: [PATCH] 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. --- doc/sbcl.1 | 2 +- src/code/pprint.lisp | 16 ++++++++++------ 2 files changed, 11 insertions(+), 7 deletions(-) diff --git a/doc/sbcl.1 b/doc/sbcl.1 index 621eaef..b08c730 100644 --- 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 --- 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) -- 1.7.10.4