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

Raymond Toy rtoy at common-lisp.net
Wed Feb 10 05:00:25 CET 2010


    Date: Tuesday, February 9, 2010 @ 23:00:25
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code
     Tag: intl-branch

Modified: error.lisp

Use _N for docstrings.


------------+
 error.lisp |    4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)


Index: src/code/error.lisp
diff -u src/code/error.lisp:1.88.12.2 src/code/error.lisp:1.88.12.3
--- src/code/error.lisp:1.88.12.2	Tue Feb  9 10:18:21 2010
+++ src/code/error.lisp	Tue Feb  9 23:00:25 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/error.lisp,v 1.88.12.2 2010-02-09 15:18:21 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/error.lisp,v 1.88.12.3 2010-02-10 04:00:25 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -136,7 +136,7 @@
   (test-function #'(lambda (cond) (declare (ignore cond)) t)))
 
 (setf (documentation 'restart-name 'function)
-      _"Returns the name of the given restart object.")
+      _N"Returns the name of the given restart object.")
 
 (defun restart-report (restart stream)
   (funcall (or (restart-report-function restart)



More information about the cmucl-commit mailing list