CMUCL commit: intl-branch src/code (gc.lisp)

[Raymond Toy]

    Date: Monday, February 8, 2010 @ 21:44:32
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code
     Tag: intl-branch

Modified: gc.lisp

Unmark a couple of docstrings.  This was causing problems with the pot
file.  Needs further investigation.


---------+
 gc.lisp |    6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)


Index: src/code/gc.lisp
diff -u src/code/gc.lisp:1.42.38.2 src/code/gc.lisp:1.42.38.3
--- src/code/gc.lisp:1.42.38.2	Mon Feb  8 15:21:44 2010
+++ src/code/gc.lisp	Mon Feb  8 21:44:32 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/gc.lisp,v 1.42.38.2 2010-02-08 20:21:44 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/gc.lisp,v 1.42.38.3 2010-02-09 02:44:32 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -209,7 +209,7 @@
 
 #-(or cgc gencgc)
 (defun get-bytes-consed-dfixnum ()
-  _N"Returns the number of bytes consed since the first time this function
+  "Returns the number of bytes consed since the first time this function
   was called.  The first time it is called, it returns zero."
   (declare (optimize (speed 3) (safety 0)(inhibit-warnings 3)))
   (cond ((null *last-bytes-in-use*)
@@ -509,7 +509,7 @@
 ;;; 
 #-gencgc
 (defun gc (&optional (verbose-p *gc-verbose*))
-  _N"Initiates a garbage collection.  The optional argument, VERBOSE-P,
+  "Initiates a garbage collection.  The optional argument, VERBOSE-P,
   which defaults to the value of the variable *GC-VERBOSE* controls
   whether or not GC statistics are printed."
   (sub-gc :verbose-p verbose-p :force-p t))