From dbdb9f953956ddc39db26cff2bd5a737156aeda5 Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Mon, 19 Apr 2010 02:31:14 +0000 Subject: [PATCH] Remove _N"" reader macro from docstrings when possible. --- pcl/boot.lisp | 6 +++--- pcl/dfun.lisp | 4 ++-- pcl/fngen.lisp | 4 ++-- pcl/low.lisp | 8 ++++---- pcl/macros.lisp | 4 ++-- pcl/method-slot-access-optimization.lisp | 8 ++++---- 6 files changed, 17 insertions(+), 17 deletions(-) diff --git a/pcl/boot.lisp b/pcl/boot.lisp index 2b8ff9abe..7e5fba098 100644 --- a/pcl/boot.lisp +++ b/pcl/boot.lisp @@ -25,7 +25,7 @@ ;;; ************************************************************************* (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.77 2010/04/17 19:05:51 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/boot.lisp,v 1.78 2010/04/19 02:31:13 rtoy Rel $") (in-package :pcl) (intl:textdomain "cmucl") @@ -380,7 +380,7 @@ work during bootstrapping. (defvar *method-source-info*) (defvar *inline-methods-in-emfs* t - _N"If true, allow inlining of methods in effective methods.") + "If true, allow inlining of methods in effective methods.") (defun expand-defmethod (name proto-gf proto-method qualifiers lambda-list body env) @@ -1311,7 +1311,7 @@ work during bootstrapping. method-info))) (defvar *compile-interpreted-methods-p* t - _N"When true, compile interpreted method functions.") + "When true, compile interpreted method functions.") (defun load-defmethod-internal (method-class gf-name qualifiers specializers lambda-list diff --git a/pcl/dfun.lisp b/pcl/dfun.lisp index 577fba1e5..6135d9216 100644 --- a/pcl/dfun.lisp +++ b/pcl/dfun.lisp @@ -25,7 +25,7 @@ ;;; ************************************************************************* (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/dfun.lisp,v 1.40 2010/03/19 15:19:03 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/dfun.lisp,v 1.41 2010/04/19 02:31:14 rtoy Rel $") (in-package :pcl) (intl:textdomain "cmucl") @@ -771,7 +771,7 @@ And so, we are saved. (defvar *early-p* nil) (defvar *max-emf-precomputation-methods* 100 - _N"Precompute effective methods at method load time if the generic + "Precompute effective methods at method load time if the generic function has less than this number of methods. If zero, no effective methods are precomputed at method load time.") diff --git a/pcl/fngen.lisp b/pcl/fngen.lisp index 38e7bcef6..62ada23e3 100644 --- a/pcl/fngen.lisp +++ b/pcl/fngen.lisp @@ -25,7 +25,7 @@ ;;; ************************************************************************* (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/fngen.lisp,v 1.14 2010/03/19 15:19:03 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/fngen.lisp,v 1.15 2010/04/19 02:31:14 rtoy Rel $") (in-package :pcl) (intl:textdomain "cmucl") @@ -208,7 +208,7 @@ (store-fgen (make-fgen test gensyms generator generator-lambda system))) (defun flush-emf-cache (&optional gf) - _N"Flush cached emf functions. If GF is supplied, it should be a + "Flush cached emf functions. If GF is supplied, it should be a generic function metaobject or the name of a generic function, and this function flushes all cached emfs for the given generic function. If GF is not supplied, all cached emfs are flushed." diff --git a/pcl/low.lisp b/pcl/low.lisp index 6684b6f31..d761f6c7c 100644 --- a/pcl/low.lisp +++ b/pcl/low.lisp @@ -26,7 +26,7 @@ ;;; (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/low.lisp,v 1.36 2010/03/19 15:19:03 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/low.lisp,v 1.37 2010/04/19 02:31:14 rtoy Rel $") ;;; ;;; This file contains optimized low-level constructs for PCL. @@ -103,7 +103,7 @@ ;;; In all cases, set-function-name must return the new (or same) function. ;;; (defun set-function-name (function new-name) - _N"Set the name of a compiled function object and return the function." + "Set the name of a compiled function object and return the function." (declare (special *boot-state* *the-class-standard-generic-function*)) (when (valid-function-name-p function) (setq function (fdefinition function))) @@ -142,11 +142,11 @@ ;;; forms). ;;; (defvar *compile-lambda-break-p* nil - _N"PCL debugging aid that breaks into the debugger each time + "PCL debugging aid that breaks into the debugger each time `compile-lambda' is invoked.") (defvar *compile-lambda-silent-p* t - _N"If true (the default), then `compile-lambda' will try to silence + "If true (the default), then `compile-lambda' will try to silence the compiler as completely as possible. Currently this means that `*compile-print*' will be bound to nil during compilation.") diff --git a/pcl/macros.lisp b/pcl/macros.lisp index f15c5d1a7..c2dfddf42 100644 --- a/pcl/macros.lisp +++ b/pcl/macros.lisp @@ -26,7 +26,7 @@ ;;; (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/macros.lisp,v 1.30 2010/03/19 15:19:03 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/macros.lisp,v 1.31 2010/04/19 02:31:14 rtoy Rel $") ;;; ;;; Macros global variable definitions, and other random support stuff used ;;; by the rest of the system. @@ -153,7 +153,7 @@ (symbolp x)) (defun find-class (symbol &optional (errorp t) environment) - _N"Returns the PCL class metaobject named by SYMBOL. An error of type + "Returns the PCL class metaobject named by SYMBOL. An error of type SIMPLE-ERROR is signaled if the class does not exist unless ERRORP is NIL in which case NIL is returned. SYMBOL cannot be a keyword." (declare (ignore environment)) diff --git a/pcl/method-slot-access-optimization.lisp b/pcl/method-slot-access-optimization.lisp index c59b2306a..555289fbe 100644 --- a/pcl/method-slot-access-optimization.lisp +++ b/pcl/method-slot-access-optimization.lisp @@ -52,19 +52,19 @@ ;;; (file-comment - "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/method-slot-access-optimization.lisp,v 1.8 2010/03/19 15:19:03 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/pcl/method-slot-access-optimization.lisp,v 1.9 2010/04/19 02:31:14 rtoy Rel $") (in-package "PCL") (intl:textdomain "cmucl") (defvar *optimize-inline-slot-access-p* t - _N"Set to true to activate the inline slot access optimization.") + "Set to true to activate the inline slot access optimization.") (defvar *use-slot-types-p* t - _N"When true, check slot values against specified slot types.") + "When true, check slot values against specified slot types.") (defvar *optimize-accessor-calls-p* t - _N"When true, optimize slot access through slot reader/writer functions.") + "When true, optimize slot access through slot reader/writer functions.") ;;; ******************* -- GitLab