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