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@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