diff --git a/src/code/debug-int.lisp b/src/code/debug-int.lisp index 0941ffebdf885cd1cbd2a3865446e87af4d85cba..e0ff84991a5cb32c3bcd7bbb91e7ae1b391d615e 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 5b72100aa4f3d063dd1d4bf3570f0d6f4caac73b..3fc7f815b605fb08dd20db00b58f991f6e73a2e7 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 4d3f33d931ce54fc6d1dfc29cbe9e137d45c992b..99a06e95bf2cb34edd1f10f36808d7d22f03efa6 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