From d61819dea7797e94d996efc48883261392ec63ba Mon Sep 17 00:00:00 2001 From: Nathan Froyd Date: Mon, 8 Feb 2010 16:13:14 +0000 Subject: [PATCH] 1.0.35.7: fix docstrings for printing-releated things This fixes Launchpad bug #518696. --- NEWS | 3 +++ src/code/print.lisp | 14 +++++++------- version.lisp-expr | 2 +- 3 files changed, 11 insertions(+), 8 deletions(-) diff --git a/NEWS b/NEWS index 93bc496..827b37a 100644 --- a/NEWS +++ b/NEWS @@ -1,5 +1,8 @@ ;;;; -*- coding: utf-8; fill-column: 78 -*- changes relative to sbcl-1.0.35: + * bug fix: Fix grammer and style issues for the docstrings of + printer-related variables and functions. (Thanks to mon_key; launchpad + bug lp#518696) * bug fix: fix compilation on chenygc platforms. Thanks to Larry Valkama and Bruce O'Neel. * bug fix: SB-THREAD:CONDITION-WAIT sometimes signaled a deadline twice diff --git a/src/code/print.lisp b/src/code/print.lisp index 8e6e0c8..276ce95 100644 --- a/src/code/print.lisp +++ b/src/code/print.lisp @@ -18,8 +18,8 @@ (defvar *print-readably* nil #!+sb-doc - "If true, all objects will printed readably. If readable printing is - impossible, an error will be signalled. This overrides the value of + "If true, all objects will be printed readably. If readable printing + is impossible, an error will be signalled. This overrides the value of *PRINT-ESCAPE*.") (defvar *print-escape* t #!+sb-doc @@ -30,7 +30,7 @@ "Should pretty printing be used?") (defvar *print-base* 10. #!+sb-doc - "the output base for RATIONALs (including integers)") + "The output base for RATIONALs (including integers).") (defvar *print-radix* nil #!+sb-doc "Should base be verified when printing RATIONALs?") @@ -56,10 +56,10 @@ "Should #: prefixes be used when printing symbols with null SYMBOL-PACKAGE?") (defvar *print-lines* nil #!+sb-doc - "the maximum number of lines to print per object") + "The maximum number of lines to print per object.") (defvar *print-right-margin* nil #!+sb-doc - "the position of the right margin in ems (for pretty-printing)") + "The position of the right margin in ems (for pretty-printing).") (defvar *print-miser-width* nil #!+sb-doc "If the remaining space between the current column and the right margin @@ -69,7 +69,7 @@ (defvar *print-pprint-dispatch*) #!+sb-doc (setf (fdocumentation '*print-pprint-dispatch* 'variable) - "the pprint-dispatch-table that controls how to pretty-print objects") + "The pprint-dispatch-table that controls how to pretty-print objects.") (defmacro with-standard-io-syntax (&body body) #!+sb-doc @@ -167,7 +167,7 @@ ((:pprint-dispatch *print-pprint-dispatch*) *print-pprint-dispatch*)) #!+sb-doc - "Output OBJECT to the specified stream, defaulting to *STANDARD-OUTPUT*" + "Output OBJECT to the specified stream, defaulting to *STANDARD-OUTPUT*." (output-object object (out-synonym-of stream)) object) diff --git a/version.lisp-expr b/version.lisp-expr index 7e40598..e07a2c0 100644 --- a/version.lisp-expr +++ b/version.lisp-expr @@ -17,4 +17,4 @@ ;;; checkins which aren't released. (And occasionally for internal ;;; versions, especially for internal versions off the main CVS ;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".) -"1.0.35.6" +"1.0.35.7" -- 1.7.10.4