CMUCL commit: intl-branch src/compiler (proclaim.lisp)

[Raymond Toy]

    Date: Thursday, March 18, 2010 @ 22:22:50
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/compiler
     Tag: intl-branch

Modified: proclaim.lisp

Mark translatable string introduced from merge with HEAD.


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


Index: src/compiler/proclaim.lisp
diff -u src/compiler/proclaim.lisp:1.44.24.6 src/compiler/proclaim.lisp:1.44.24.7
--- src/compiler/proclaim.lisp:1.44.24.6	Thu Mar 18 18:17:16 2010
+++ src/compiler/proclaim.lisp	Thu Mar 18 22:22:50 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/compiler/proclaim.lisp,v 1.44.24.6 2010-03-18 22:17:16 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/proclaim.lisp,v 1.44.24.7 2010-03-19 02:22:50 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -234,8 +234,8 @@
 (defun note-if-accessor (name)
   (let ((for (info function accessor-for name)))
     (when for
-      (cerror "Assume redefinition is compatible and allow it"
-	      "Redefining slot accessor ~S for structure type ~S"
+      (cerror _"Assume redefinition is compatible and allow it"
+	      _"Redefining slot accessor ~S for structure type ~S"
 	      name (%class-name for))
       ;;(undefine-structure for)
       (setf (info function kind name) :function))))