CMUCL commit: src/pcl (6 files)
Raymond Toy
rtoy at common-lisp.net
Mon Apr 19 04:31:14 CEST 2010
Date: Sunday, April 18, 2010 @ 22:31:14
Author: rtoy
Path: /project/cmucl/cvsroot/src/pcl
Modified: boot.lisp dfun.lisp fngen.lisp low.lisp macros.lisp
method-slot-access-optimization.lisp
Remove _N"" reader macro from docstrings when possible.
--------------------------------------+
boot.lisp | 6 +++---
dfun.lisp | 4 ++--
fngen.lisp | 4 ++--
low.lisp | 8 ++++----
macros.lisp | 4 ++--
method-slot-access-optimization.lisp | 8 ++++----
6 files changed, 17 insertions(+), 17 deletions(-)
Index: src/pcl/boot.lisp
diff -u src/pcl/boot.lisp:1.77 src/pcl/boot.lisp:1.78
--- src/pcl/boot.lisp:1.77 Sat Apr 17 15:05:51 2010
+++ src/pcl/boot.lisp Sun Apr 18 22:31:13 2010
@@ -25,7 +25,7 @@
;;; *************************************************************************
(file-comment
- "$Header: /project/cmucl/cvsroot/src/pcl/boot.lisp,v 1.77 2010-04-17 19:05:51 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/pcl/boot.lisp,v 1.78 2010-04-19 02:31:13 rtoy Exp $")
(in-package :pcl)
(intl:textdomain "cmucl")
@@ -380,7 +380,7 @@
(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 @@
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
Index: src/pcl/dfun.lisp
diff -u src/pcl/dfun.lisp:1.40 src/pcl/dfun.lisp:1.41
--- src/pcl/dfun.lisp:1.40 Fri Mar 19 11:19:03 2010
+++ src/pcl/dfun.lisp Sun Apr 18 22:31:14 2010
@@ -25,7 +25,7 @@
;;; *************************************************************************
(file-comment
- "$Header: /project/cmucl/cvsroot/src/pcl/dfun.lisp,v 1.40 2010-03-19 15:19:03 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/pcl/dfun.lisp,v 1.41 2010-04-19 02:31:14 rtoy Exp $")
(in-package :pcl)
(intl:textdomain "cmucl")
@@ -771,7 +771,7 @@
(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.")
Index: src/pcl/fngen.lisp
diff -u src/pcl/fngen.lisp:1.14 src/pcl/fngen.lisp:1.15
--- src/pcl/fngen.lisp:1.14 Fri Mar 19 11:19:03 2010
+++ src/pcl/fngen.lisp Sun Apr 18 22:31:14 2010
@@ -25,7 +25,7 @@
;;; *************************************************************************
(file-comment
- "$Header: /project/cmucl/cvsroot/src/pcl/fngen.lisp,v 1.14 2010-03-19 15:19:03 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/pcl/fngen.lisp,v 1.15 2010-04-19 02:31:14 rtoy Exp $")
(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."
Index: src/pcl/low.lisp
diff -u src/pcl/low.lisp:1.36 src/pcl/low.lisp:1.37
--- src/pcl/low.lisp:1.36 Fri Mar 19 11:19:03 2010
+++ src/pcl/low.lisp Sun Apr 18 22:31:14 2010
@@ -26,7 +26,7 @@
;;;
(file-comment
- "$Header: /project/cmucl/cvsroot/src/pcl/low.lisp,v 1.36 2010-03-19 15:19:03 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/pcl/low.lisp,v 1.37 2010-04-19 02:31:14 rtoy Exp $")
;;;
;;; 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.")
Index: src/pcl/macros.lisp
diff -u src/pcl/macros.lisp:1.30 src/pcl/macros.lisp:1.31
--- src/pcl/macros.lisp:1.30 Fri Mar 19 11:19:03 2010
+++ src/pcl/macros.lisp Sun Apr 18 22:31:14 2010
@@ -26,7 +26,7 @@
;;;
(file-comment
- "$Header: /project/cmucl/cvsroot/src/pcl/macros.lisp,v 1.30 2010-03-19 15:19:03 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/pcl/macros.lisp,v 1.31 2010-04-19 02:31:14 rtoy Exp $")
;;;
;;; 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))
Index: src/pcl/method-slot-access-optimization.lisp
diff -u src/pcl/method-slot-access-optimization.lisp:1.8 src/pcl/method-slot-access-optimization.lisp:1.9
--- src/pcl/method-slot-access-optimization.lisp:1.8 Fri Mar 19 11:19:03 2010
+++ src/pcl/method-slot-access-optimization.lisp Sun Apr 18 22:31:14 2010
@@ -52,19 +52,19 @@
;;;
(file-comment
- "$Header: /project/cmucl/cvsroot/src/pcl/method-slot-access-optimization.lisp,v 1.8 2010-03-19 15:19:03 rtoy Exp $")
+ "$Header: /project/cmucl/cvsroot/src/pcl/method-slot-access-optimization.lisp,v 1.9 2010-04-19 02:31:14 rtoy Exp $")
(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.")
;;; *******************
More information about the cmucl-commit
mailing list