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

[Raymond Toy]

    Date: Thursday, March 4, 2010 @ 19:05:42
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/compiler
     Tag: intl-branch

Modified: ir1util.lisp

Mark more translatable stirngs.


--------------+
 ir1util.lisp |   10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)


Index: src/compiler/ir1util.lisp
diff -u src/compiler/ir1util.lisp:1.110.26.5 src/compiler/ir1util.lisp:1.110.26.6
--- src/compiler/ir1util.lisp:1.110.26.5	Thu Feb 25 22:38:17 2010
+++ src/compiler/ir1util.lisp	Thu Mar  4 19:05:41 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/ir1util.lisp,v 1.110.26.5 2010-02-26 03:38:17 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/ir1util.lisp,v 1.110.26.6 2010-03-05 00:05:41 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2010,7 +2010,7 @@
 	       (setq last nil)
 	       (format stream "~2&")
 	       (pprint-logical-block (stream nil :per-line-prefix "; ")
-		 (format stream "In:~{~<~%   ~4:;~{ ~S~}~>~^ =>~}" in))
+		 (format stream _"In:~{~<~%   ~4:;~{ ~S~}~>~^ =>~}" in))
 	       (format stream "~2%"))
 	    
 	     (unless (and last
@@ -2155,19 +2155,19 @@
 ;;;
 (defun compiler-error (format-string &rest format-args)
   (declare (string format-string))
-  (cerror "replace form with call to ERROR."
+  (cerror _"replace form with call to ERROR."
 	  'compiler-error
 	  :format-control (intl:gettext format-string)
 	  :format-arguments format-args)
   (funcall *compiler-error-bailout*))
 ;;;
 (defun compiler-error-message (format-string &rest format-args)
-  (cerror "ignore it." 
+  (cerror _"ignore it." 
 	  'compiler-error :format-control format-string
 	  :format-arguments format-args))
 ;;; 
 (defun compiler-read-error (position format-string &rest format-args)
-  (cerror "replace form with call to ERROR."
+  (cerror _"replace form with call to ERROR."
 	  'compiler-read-error :position position
 	  :message (apply #'format nil format-string format-args)))
 ;;;