[cmucl-commit] [git] CMU Common Lisp branch master updated. snapshot-2013-12-a-18-g82d0a77

Raymond Toy rtoy at common-lisp.net
Fri Dec 20 20:21:26 UTC 2013


This is an automated email from the git hooks/post-receive script. It was
generated because a ref change was pushed to the repository containing
the project "CMU Common Lisp".

The branch, master has been updated
       via  82d0a77961bbbe867e78086800203e6af80c2d9c (commit)
      from  01a3f47b4b6d0a6f89bd533c967b32f2357acab6 (commit)

Those revisions listed above that are new to this repository have
not appeared on any other notification email; so we list those
revisions in full, below.

- Log -----------------------------------------------------------------
commit 82d0a77961bbbe867e78086800203e6af80c2d9c
Author: Raymond Toy <toy.raymond at gmail.com>
Date:   Fri Dec 20 08:18:27 2013 -0800

    Update for ppc to get pot files generated correctly.

diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp
index 0941ffe..e0ff849 100644
--- a/src/code/debug-int.lisp
+++ b/src/code/debug-int.lisp
@@ -1182,7 +1182,7 @@
 
 #+(or sparc (and x86 (or darwin solaris netbsd)) (and (or x86 amd64) linux))
 (defun find-foreign-function-name (address)
-  "Return a string describing the foreign function near ADDRESS"
+  _"Return a string describing the foreign function near ADDRESS"
   (let ((addr (sys:sap-int address)))
     (alien:with-alien ((info (alien:struct dl-info
 					   (filename c-call:c-string)
@@ -1194,7 +1194,7 @@
 			       :extern "dladdr"))
       (let ((err (alien:alien-funcall dladdr addr (alien:addr info))))
 	(cond ((zerop err)
-	       (intl:gettext "Foreign function call land"))
+	       _"Foreign function call land")
 	      (t
 	       (format nil "~A+#x~x [#x~X] ~A"
 		       (alien:slot info 'symbol)
@@ -1206,7 +1206,7 @@
 #-(or sparc (and x86 (or darwin solaris netbsd)) (and (or x86 amd64) linux))
 (defun find-foreign-function-name (ra)
   (declare (ignore ra))
-  "Foreign function call land")
+  _"Foreign function call land")
 
 (defun assembly-routines-p (component)
   "Return t if COMPONENT contains code from assembly routines."
diff --git a/src/code/error.lisp b/src/code/error.lisp
index 5b72100..3fc7f81 100644
--- a/src/code/error.lisp
+++ b/src/code/error.lisp
@@ -960,14 +960,14 @@
   ()
   (:report (lambda (condition stream)
 	     (declare (ignore condition))
-	     (format stream (intl:gettext "Control stack overflow")))))
+	     (format stream _"Control stack overflow"))))
 
 #+heap-overflow-check
 (define-condition heap-overflow (storage-condition)
   ()
   (:report (lambda (condition stream)
 	     (declare (ignore condition))
-	     (format stream (intl:gettext "Heap (dynamic space) overflow")))))
+	     (format stream _"Heap (dynamic space) overflow"))))
 
 (define-condition type-error (error)
   ((datum :reader type-error-datum :initarg :datum)
diff --git a/src/code/interr.lisp b/src/code/interr.lisp
index 4d3f33d..99a06e9 100644
--- a/src/code/interr.lisp
+++ b/src/code/interr.lisp
@@ -666,10 +666,10 @@
 (defun yellow-zone-hit ()
   (let ((debug:*stack-top-hint* nil))
     (format *error-output*
-	    (intl:gettext "~2&~@<A control stack overflow has occurred:~%~
+	    _"~2&~@<A control stack overflow has occurred:~%~
             the program has entered the yellow control stack guard zone.~%~
             Please note that you will be returned to the Top-Level if you~%~
-            enter the red control stack guard zone while debugging.~@:>~2%"))
+            enter the red control stack guard zone while debugging.~@:>~2%")
     (infinite-error-protect (error 'stack-overflow))))
 
 ;;;
@@ -684,9 +684,9 @@
 #+stack-checking
 (defun red-zone-hit ()
   (format *error-output*
-	  (intl:gettext "~2&~@<Fatal control stack overflow.  You have entered~%~
+	  _"~2&~@<Fatal control stack overflow.  You have entered~%~
            the red control stack guard zone while debugging.~%~
-           Returning to Top-Level.~@:>~2%"))
+           Returning to Top-Level.~@:>~2%")
   (throw 'lisp::top-level-catcher nil))
 
 #+heap-overflow-check
@@ -695,10 +695,10 @@
     ;; Don't reserve any more pages
     (setf lisp::reserved-heap-pages 0)
     (format *error-output*
-	    (intl:gettext "~2&~@<Imminent dynamic space overflow has occurred:~%~
+	    _"~2&~@<Imminent dynamic space overflow has occurred:~%~
             Only a small amount of dynamic space is available now.~%~
             Please note that you will be returned to the Top-Level without~%~
-            warning if you run out of space while debugging.~@:>~%"))
+            warning if you run out of space while debugging.~@:>~%")
     (infinite-error-protect (error 'heap-overflow))))
 
 #+heap-overflow-check

-----------------------------------------------------------------------

Summary of changes:
 src/code/debug-int.lisp |    6 +++---
 src/code/error.lisp     |    4 ++--
 src/code/interr.lisp    |   12 ++++++------
 3 files changed, 11 insertions(+), 11 deletions(-)


hooks/post-receive
-- 
CMU Common Lisp


More information about the cmucl-commit mailing list