From 82d0a77961bbbe867e78086800203e6af80c2d9c Mon Sep 17 00:00:00 2001 From: Raymond Toy <toy.raymond@gmail.com> Date: Fri, 20 Dec 2013 08:18:27 -0800 Subject: [PATCH] Update for ppc to get pot files generated correctly. --- src/code/debug-int.lisp | 6 +++--- src/code/error.lisp | 4 ++-- src/code/interr.lisp | 12 ++++++------ 3 files changed, 11 insertions(+), 11 deletions(-) diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp index 0941ffebd..e0ff84991 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 5b72100aa..3fc7f815b 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 4d3f33d93..99a06e95b 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 -- GitLab