CMUCL commit: src/code (debug-int.lisp)

[Raymond Toy]

    Date: Wednesday, July 14, 2010 @ 19:09:00
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code

Modified: debug-int.lisp

The strings in handle-breakpoint-aux are system-dependent, so set the
text domain depending on the system.


----------------+
 debug-int.lisp |    6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)


Index: src/code/debug-int.lisp
diff -u src/code/debug-int.lisp:1.141 src/code/debug-int.lisp:1.142
--- src/code/debug-int.lisp:1.141	Wed Jul 14 09:19:03 2010
+++ src/code/debug-int.lisp	Wed Jul 14 19:08:59 2010
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /project/cmucl/cvsroot/src/code/debug-int.lisp,v 1.141 2010-07-14 13:19:03 rtoy Exp $")
+  "$Header: /project/cmucl/cvsroot/src/code/debug-int.lisp,v 1.142 2010-07-14 23:08:59 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -4500,6 +4500,8 @@
 ;;;
 ;;; This handles code-location and debug-function :function-start breakpoints.
 ;;;
+(intl:with-textdomain ("cmucl" #+(or x86 amd64) "cmucl-x86-vm"
+			       #+sparc "cmucl-sparc-svr4")
 (defun handle-breakpoint-aux (breakpoints data offset component signal-context)
   (unless breakpoints
     (error (intl:gettext "Breakpoint that nobody wants?")))
@@ -4524,7 +4526,7 @@
 				    (breakpoint-data-instruction data))
       ; Under HPUX we can't sigreturn so bp-do-disp-i has to return.
       #-(or hpux irix x86 amd64)
-      (error (intl:gettext "BREAKPOINT-DO-DISPLACED-INST returned?")))))
+      (error (intl:gettext "BREAKPOINT-DO-DISPLACED-INST returned?"))))))
 
 (defun invoke-breakpoint-hooks (breakpoints component offset)
   (let* ((debug-fun (debug-function-from-pc component offset))