CMUCL commit: intl-branch src/compiler (12 files)

Raymond Toy rtoy at common-lisp.net
Thu Feb 25 05:35:40 CET 2010


    Date: Wednesday, February 24, 2010 @ 23:35:40
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/compiler
     Tag: intl-branch

Modified: checkgen.lisp constraint.lisp ir1opt.lisp ir1tran.lisp ir1util.lisp
          locall.lisp ltn.lisp main.lisp proclaim.lisp seqtran.lisp
          srctran.lisp typetran.lisp

o Make COMPILER-WARNING do the string lookup instead of at each call
  site.
o Change all calls to COMPILER-WARNING to use _N" instead of _".


-----------------+
 checkgen.lisp   |    6 +++---
 constraint.lisp |    4 ++--
 ir1opt.lisp     |   10 +++++-----
 ir1tran.lisp    |   22 +++++++++++-----------
 ir1util.lisp    |    8 ++++----
 locall.lisp     |   14 +++++++-------
 ltn.lisp        |    4 ++--
 main.lisp       |   10 +++++-----
 proclaim.lisp   |   12 ++++++------
 seqtran.lisp    |    4 ++--
 srctran.lisp    |    4 ++--
 typetran.lisp   |    4 ++--
 12 files changed, 51 insertions(+), 51 deletions(-)


Index: src/compiler/checkgen.lisp
diff -u src/compiler/checkgen.lisp:1.34.32.3 src/compiler/checkgen.lisp:1.34.32.4
--- src/compiler/checkgen.lisp:1.34.32.3	Wed Feb 24 22:59:43 2010
+++ src/compiler/checkgen.lisp	Wed Feb 24 23:35:40 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/checkgen.lisp,v 1.34.32.3 2010-02-25 03:59:43 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/checkgen.lisp,v 1.34.32.4 2010-02-25 04:35:40 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -524,11 +524,11 @@
 			   (leaf-name (elt (lambda-vars lambda) pos)))))))
     (cond ((eq dtype *empty-type*))
 	  ((and (ref-p node) (constant-p (ref-leaf node)))
-	   (compiler-warning _"~:[This~;~:*~A~] is not a ~<~%~9T~:;~S:~>~%  ~S"
+	   (compiler-warning _N"~:[This~;~:*~A~] is not a ~<~%~9T~:;~S:~>~%  ~S"
 			     what atype-spec (constant-value (ref-leaf node))))
 	  (t
 	   (compiler-warning
-	    _"~:[Result~;~:*~A~] is a ~S, ~<~%~9T~:;not a ~S.~>"
+	    _N"~:[Result~;~:*~A~] is a ~S, ~<~%~9T~:;not a ~S.~>"
 	    what (type-specifier dtype) atype-spec))))
   (undefined-value))
 
Index: src/compiler/constraint.lisp
diff -u src/compiler/constraint.lisp:1.26.42.2 src/compiler/constraint.lisp:1.26.42.3
--- src/compiler/constraint.lisp:1.26.42.2	Wed Feb 10 16:50:39 2010
+++ src/compiler/constraint.lisp	Wed Feb 24 23:35:40 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/constraint.lisp,v 1.26.42.2 2010-02-10 21:50:39 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/constraint.lisp,v 1.26.42.3 2010-02-25 04:35:40 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -534,7 +534,7 @@
 		    (when *check-consistency*
 		      (let ((*compiler-error-context* (block-last block)))
 			(compiler-warning
-			 _"*** Unreachable code in constraint ~
+			 _N"*** Unreachable code in constraint ~
 			  propagation...  Bug?")))
 		    (make-sset))))
 	 (kill (block-kill block))
Index: src/compiler/ir1opt.lisp
diff -u src/compiler/ir1opt.lisp:1.87.14.2 src/compiler/ir1opt.lisp:1.87.14.3
--- src/compiler/ir1opt.lisp:1.87.14.2	Wed Feb 10 20:33:01 2010
+++ src/compiler/ir1opt.lisp	Wed Feb 24 23:35:40 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/ir1opt.lisp,v 1.87.14.2 2010-02-11 01:33:01 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/ir1opt.lisp,v 1.87.14.3 2010-02-25 04:35:40 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -196,7 +196,7 @@
 		     (not (eq rtype *empty-type*)))
 	    (let ((*compiler-error-context* node))
 	      (compiler-warning
-	       _"New inferred type ~S conflicts with old type:~
+	       _N"New inferred type ~S conflicts with old type:~
 		~%  ~S~%*** Bug?"
 	       (type-specifier rtype) (type-specifier node-type))))
 	  (setf (node-derived-type node) int)
@@ -788,7 +788,7 @@
 	   (let ((unused-result (funcall fun node)))
 	     (when unused-result
 	       (let ((*compiler-error-context* node))
-		 (compiler-warning _"The return value of ~A should not be discarded."
+		 (compiler-warning _N"The return value of ~A should not be discarded."
 				   (continuation-function-name (basic-combination-fun node))))))))
        
        (let ((fun (function-info-destroyed-constant-args kind)))
@@ -1654,14 +1654,14 @@
 	(when total-nvals
 	  (when (and min (< total-nvals min))
 	    (compiler-warning
-	     _"MULTIPLE-VALUE-CALL with ~R values when the function expects ~
+	     _N"MULTIPLE-VALUE-CALL with ~R values when the function expects ~
 	     at least ~R."
 	     total-nvals min)
 	    (setf (basic-combination-kind node) :error)
 	    (return-from ir1-optimize-mv-call))
 	  (when (and max (> total-nvals max))
 	    (compiler-warning
-	     _"MULTIPLE-VALUE-CALL with ~R values when the function expects ~
+	     _N"MULTIPLE-VALUE-CALL with ~R values when the function expects ~
 	     at most ~R."
 	     total-nvals max)
 	    (setf (basic-combination-kind node) :error)
Index: src/compiler/ir1tran.lisp
diff -u src/compiler/ir1tran.lisp:1.173.32.3 src/compiler/ir1tran.lisp:1.173.32.4
--- src/compiler/ir1tran.lisp:1.173.32.3	Wed Feb 24 22:59:43 2010
+++ src/compiler/ir1tran.lisp	Wed Feb 24 23:35:40 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/ir1tran.lisp,v 1.173.32.3 2010-02-25 03:59:43 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/ir1tran.lisp,v 1.173.32.4 2010-02-25 04:35:40 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -208,7 +208,7 @@
 					"in a dynamic-extent declaration")))))
 		(t
 		 (compiler-warning
-		  _"~@<Invalid name ~s in a dynamic-extent declaration.~@:>"
+		  _N"~@<Invalid name ~s in a dynamic-extent declaration.~@:>"
 		  name))))
 	(if (dynamic-extent)
 	    (make-lexenv :default lexenv :dynamic-extent (dynamic-extent))
@@ -1130,7 +1130,7 @@
 			(cond ((eq int *empty-type*)
 			       (unless (policy nil (= brevity 3))
 				 (compiler-warning
-				  _"Conflicting type declarations ~
+				  _N"Conflicting type declarations ~
 				   ~S and ~S for ~S."
 				  (type-specifier old-type)
 				  (type-specifier type)
@@ -1310,7 +1310,7 @@
 	(if (or (lexenv-find name variables)
 		(lexenv-find-function name))
 	    (compiler-note _N"Ignoring free ignore declaration for ~S." name)
-	    (compiler-warning _"Ignore declaration for unknown variable ~S."
+	    (compiler-warning _N"Ignore declaration for unknown variable ~S."
 			      name)))
        ((and (consp var)
 	     (eq (car var) 'macro)
@@ -1401,7 +1401,7 @@
 	     ((info declaration recognized what)
 	      res)
 	     (t
-	      (compiler-warning _"Unrecognized declaration: ~S." spec)
+	      (compiler-warning _N"Unrecognized declaration: ~S." spec)
 	      res))))))
 
 
@@ -2831,7 +2831,7 @@
 	  (when (member kind '(:special :constant))
 	    (compiler-error _"Attempt to bind a special or constant variable with SYMBOL-MACROLET: ~S." name)))
 	(when (assoc name (res) :test #'eq)
-	  (compiler-warning _"Repeated name in SYMBOL-MACROLET: ~S." name))
+	  (compiler-warning _N"Repeated name in SYMBOL-MACROLET: ~S." name))
 	(res `(,name . (MACRO . ,def)))))
 
     (let* ((*lexical-environment* (make-lexenv :variables (res)))
@@ -3018,7 +3018,7 @@
 		    (setq ignore t))
 		   (t
 		    (setq ignore t)
-		    (compiler-warning _"Unrecognized proclamation: ~S."
+		    (compiler-warning _N"Unrecognized proclamation: ~S."
 				      form)))))
 	  
 	  (unless ignore
@@ -3290,7 +3290,7 @@
     (when (and (not intersects)
 	       (not (policy nil (= brevity 3))))
       (compiler-warning
-       _"Type ~S in ~S declaration conflicts with enclosing assertion:~%   ~S"
+       _N"Type ~S in ~S declaration conflicts with enclosing assertion:~%   ~S"
        (type-specifier ctype) name (type-specifier old-type)))
     (make-lexenv :type-restrictions `((,cont . ,new))
 		 :default lexenv)))
@@ -3664,7 +3664,7 @@
      (remhash name *free-functions*)
      (undefine-function-name name)
      (compiler-warning
-      _"Defining ~S to be a macro when it was ~(~A~) to be a function."
+      _N"Defining ~S to be a macro when it was ~(~A~) to be a function."
       name (info function where-from name)))
     (:macro)
     (:special-form
@@ -3733,11 +3733,11 @@
     (case kind
       (:constant
        (unless (equalp value (info variable constant-value name))
-	 (compiler-warning _"Redefining constant ~S as:~%  ~S"
+	 (compiler-warning _N"Redefining constant ~S as:~%  ~S"
 			   name value)))
       (:global)
       (t
-       (compiler-warning _"Redefining ~(~A~) ~S to be a constant."
+       (compiler-warning _N"Redefining ~(~A~) ~S to be a constant."
 			 kind name))))
 
   (setf (info variable kind name) :constant)
Index: src/compiler/ir1util.lisp
diff -u src/compiler/ir1util.lisp:1.110.26.3 src/compiler/ir1util.lisp:1.110.26.4
--- src/compiler/ir1util.lisp:1.110.26.3	Wed Feb 24 22:59:43 2010
+++ src/compiler/ir1util.lisp	Wed Feb 24 23:35:40 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.3 2010-02-25 03:59:43 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/ir1util.lisp,v 1.110.26.4 2010-02-25 04:35:40 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -2172,7 +2172,7 @@
 ;;;
 (defun compiler-warning (format-string &rest format-args)
   (declare (string format-string))
-  (apply #'warn format-string format-args)
+  (apply #'warn (intl:gettext format-string) format-args)
   (values))
 ;;;
 (defun compiler-note (format-string &rest format-args)
@@ -2181,7 +2181,7 @@
 	      (policy *compiler-error-context* (= brevity 3))
 	      (policy nil (= brevity 3)))
     (warn 'simple-style-warning
-	  :format-control (intl::dgettext intl::*default-domain* format-string)
+	  :format-control (intl:gettext format-string)
 	  :format-arguments format-args))
   (values))
 
@@ -2250,7 +2250,7 @@
     (handler-case (apply function args)
       (error (condition)
 	(let ((*compiler-error-context* node))
-	  (compiler-warning "Lisp error during ~A:~%~A" context condition)
+	  (compiler-warning _N"Lisp error during ~A:~%~A" context condition)
 	  (return-from careful-call (values nil nil))))))
    t))
 
Index: src/compiler/locall.lisp
diff -u src/compiler/locall.lisp:1.60.24.3 src/compiler/locall.lisp:1.60.24.4
--- src/compiler/locall.lisp:1.60.24.3	Wed Feb 24 22:59:43 2010
+++ src/compiler/locall.lisp	Wed Feb 24 23:35:40 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/locall.lisp,v 1.60.24.3 2010-02-25 03:59:43 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/locall.lisp,v 1.60.24.4 2010-02-25 04:35:40 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -458,7 +458,7 @@
 	   (convert-call ref call fun))
 	  (t
 	   (compiler-warning
-	    _"Function called with ~R argument~:P, but wants exactly ~R."
+	    _N"Function called with ~R argument~:P, but wants exactly ~R."
 	    call-args nargs)
 	   (setf (basic-combination-kind call) :error)))))
 
@@ -480,7 +480,7 @@
 	(max-args (optional-dispatch-max-args fun))
 	(call-args (length (combination-args call))))
     (cond ((< call-args min-args)
-	   (compiler-warning _"Function called with ~R argument~:P, but wants at least ~R."
+	   (compiler-warning _N"Function called with ~R argument~:P, but wants at least ~R."
 			     call-args min-args)
 	   (setf (basic-combination-kind call) :error))
 	  ((<= call-args max-args)
@@ -490,7 +490,7 @@
 	  ((optional-dispatch-more-entry fun)
 	   (convert-more-call ref call fun))
 	  (t
-	   (compiler-warning _"Function called with ~R argument~:P, but wants at most ~R."
+	   (compiler-warning _N"Function called with ~R argument~:P, but wants at most ~R."
 			     call-args max-args)
 	   (setf (basic-combination-kind call) :error))))
   (undefined-value))
@@ -566,7 +566,7 @@
 	       (key-vars var))
 	      ((:rest :optional))
 	      ((:more-context :more-count)
-	       (compiler-warning _"Can't local-call functions with &MORE args.")
+	       (compiler-warning _N"Can't local-call functions with &MORE args.")
 	       (setf (basic-combination-kind call) :error)
 	       (return-from convert-more-call))))))
 
@@ -578,7 +578,7 @@
 
       (when (optional-dispatch-keyp fun)
 	(when (oddp (length more))
-	  (compiler-warning _"Function called with odd number of ~
+	  (compiler-warning _N"Function called with odd number of ~
 	  		     arguments in keyword portion.")
 
 	  (setf (basic-combination-kind call) :error)
@@ -624,7 +624,7 @@
 		    (return)))))))
 	
 	(when (and loser (not (optional-dispatch-allowp fun)) (not allowp))
-	  (compiler-warning _"Function called with unknown argument keyword ~S."
+	  (compiler-warning _N"Function called with unknown argument keyword ~S."
 			    (car loser))
 	  (setf (basic-combination-kind call) :error)
 	  (return-from convert-more-call)))
Index: src/compiler/ltn.lisp
diff -u src/compiler/ltn.lisp:1.43.36.3 src/compiler/ltn.lisp:1.43.36.4
--- src/compiler/ltn.lisp:1.43.36.3	Wed Feb 24 22:59:43 2010
+++ src/compiler/ltn.lisp	Wed Feb 24 23:35:40 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/ltn.lisp,v 1.43.36.3 2010-02-25 03:59:43 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/ltn.lisp,v 1.43.36.4 2010-02-25 04:35:40 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -1010,7 +1010,7 @@
 			      (ir1-attributep (function-info-attributes info)
 					      recursive)))))
 	  (let ((*compiler-error-context* call))
-	    (compiler-warning _"Recursive known function definition.")))
+	    (compiler-warning _N"Recursive known function definition.")))
 	(ltn-default-call call policy)
 	(return-from ltn-analyze-known-call (undefined-value)))
       (setf (basic-combination-info call) template)
Index: src/compiler/main.lisp
diff -u src/compiler/main.lisp:1.148.2.5 src/compiler/main.lisp:1.148.2.6
--- src/compiler/main.lisp:1.148.2.5	Wed Feb 24 19:33:12 2010
+++ src/compiler/main.lisp	Wed Feb 24 23:35:40 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/main.lisp,v 1.148.2.5 2010-02-25 00:33:12 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/main.lisp,v 1.148.2.6 2010-02-25 04:35:40 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -584,12 +584,12 @@
 		  (warnings (undefined-warning-warnings undef))
 		  (count (undefined-warning-count undef)))
 	      (dolist (*compiler-error-context* warnings)
-		(compiler-warning _"Undefined ~(~A~) ~S~@[ ~A~]" kind name context))
+		(compiler-warning _N"Undefined ~(~A~) ~S~@[ ~A~]" kind name context))
 	      
 	      (let ((warn-count (length warnings)))
 		(when (and warnings (> count warn-count))
 		  (let ((more (- count warn-count)))
-		    (compiler-warning _"~D more use~:P of undefined ~(~A~) ~S."
+		    (compiler-warning _N"~D more use~:P of undefined ~(~A~) ~S."
 				      more kind name)))))))
 	
 	(dolist (kind '(:variable :function :type))
@@ -598,7 +598,7 @@
 					 :key #'undefined-warning-kind))))
 	    (when summary
 	      (compiler-warning
-	       _"~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
+	       _N"~:[This ~(~A~) is~;These ~(~A~)s are~] undefined:~
 		~%  ~{~<~%  ~1:;~S~>~^ ~}"
 	       (cdr summary) kind summary)))))))
   
@@ -1092,7 +1092,7 @@
     (compiler-error _"Bad FILE-COMMENT form: ~S." form))
   (let ((file (first (source-info-current-file *source-info*))))
     (cond ((file-info-comment file)
-	   (compiler-warning _"Ignoring extra file comment:~%  ~S." form))
+	   (compiler-warning _N"Ignoring extra file comment:~%  ~S." form))
 	  (t
 	   (let ((comment (coerce (second form) 'simple-string)))
 	     (setf (file-info-comment file) comment)
Index: src/compiler/proclaim.lisp
diff -u src/compiler/proclaim.lisp:1.44.24.3 src/compiler/proclaim.lisp:1.44.24.4
--- src/compiler/proclaim.lisp:1.44.24.3	Wed Feb 24 22:59:43 2010
+++ src/compiler/proclaim.lisp	Wed Feb 24 23:35:40 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.3 2010-02-25 03:59:43 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/proclaim.lisp,v 1.44.24.4 2010-02-25 04:35:40 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -220,7 +220,7 @@
     (when (or (info setf inverse name)
 	      (info setf expander name))
       (compiler-warning
-       _"Defining as a SETF function a name that already has a SETF macro:~
+       _N"Defining as a SETF function a name that already has a SETF macro:~
        ~%  ~S"
        name)))
   (undefined-value))
@@ -242,13 +242,13 @@
      (let ((for (info function accessor-for name)))
        (when for
 	 (compiler-warning
-	  _"Undefining structure type:~%  ~S~@
+	  _N"Undefining structure type:~%  ~S~@
 	   so that this slot accessor can be redefined:~%  ~S"
 	  (%class-name for) name)
 	 (undefine-structure for)
 	 (setf (info function kind name) :function))))
     (:macro
-     (compiler-warning _"~S previously defined as a macro." name)
+     (compiler-warning _N"~S previously defined as a macro." name)
      (setf (info function kind name) :function)
      (setf (info function where-from name) :assumed)
      (clear-info function macro-function name))
@@ -304,10 +304,10 @@
 		((inhibit-warnings brevity) (setf (cookie-brevity res) value))
 		((debug-info debug) (setf (cookie-debug res) value))
 		(t
-		 (compiler-warning _"Unknown optimization quality ~S in ~S."
+		 (compiler-warning _N"Unknown optimization quality ~S in ~S."
 				   (car quality) spec))))
 	    (compiler-warning
-	     _"Malformed optimization quality specifier ~S in ~S."
+	     _N"Malformed optimization quality specifier ~S in ~S."
 	     quality spec))))
     res))
 
Index: src/compiler/seqtran.lisp
diff -u src/compiler/seqtran.lisp:1.33.10.3 src/compiler/seqtran.lisp:1.33.10.4
--- src/compiler/seqtran.lisp:1.33.10.3	Wed Feb 24 22:59:43 2010
+++ src/compiler/seqtran.lisp	Wed Feb 24 23:35:40 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/seqtran.lisp,v 1.33.10.3 2010-02-25 03:59:43 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/seqtran.lisp,v 1.33.10.4 2010-02-25 04:35:40 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -651,7 +651,7 @@
     (let ((spec (continuation-value output-spec)))
       (if (subtypep spec 'sequence)
 	  (specifier-type spec)
-	  (compiler-warning _"Specified output type ~S is not a sequence type" spec)))))
+	  (compiler-warning _N"Specified output type ~S is not a sequence type" spec)))))
 
 (defoptimizer (concatenate derive-type) ((output-spec  seq &rest more-seq))
   ;; The result type of CONCATENATE is OUTPUT-SPEC, but check to see
Index: src/compiler/srctran.lisp
diff -u src/compiler/srctran.lisp:1.170.12.3 src/compiler/srctran.lisp:1.170.12.4
--- src/compiler/srctran.lisp:1.170.12.3	Wed Feb 24 22:59:43 2010
+++ src/compiler/srctran.lisp	Wed Feb 24 23:35:40 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/srctran.lisp,v 1.170.12.3 2010-02-25 03:59:43 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/srctran.lisp,v 1.170.12.4 2010-02-25 04:35:40 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -3732,7 +3732,7 @@
       (cond ((stringp min-args)
 	     (compiler-warning "~a" min-args))
 	    ((< nargs min-args)
-	     (compiler-warning _"~s: too few args (~d), need at least ~d"
+	     (compiler-warning _N"~s: too few args (~d), need at least ~d"
 			       context nargs min-args))
 	    ((> nargs max-args)
 	     (compiler-note _N"~s: too many args (~d), wants at most ~d"
Index: src/compiler/typetran.lisp
diff -u src/compiler/typetran.lisp:1.45.38.3 src/compiler/typetran.lisp:1.45.38.4
--- src/compiler/typetran.lisp:1.45.38.3	Wed Feb 24 22:59:44 2010
+++ src/compiler/typetran.lisp	Wed Feb 24 23:35:40 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/typetran.lisp,v 1.45.38.3 2010-02-25 03:59:44 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/compiler/typetran.lisp,v 1.45.38.4 2010-02-25 04:35:40 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -516,7 +516,7 @@
 	      (member-type
 	       `(member ,object ',(member-type-members type)))
 	      (args-type
-	       (compiler-warning _"Illegal type specifier for Typep: ~S."
+	       (compiler-warning _N"Illegal type specifier for Typep: ~S."
 				 (cadr spec))
 	       `(%typep ,object ,spec))
 	      (t nil))



More information about the cmucl-commit mailing list