[cmucl-cvs] CMUCL commit: cross-sol-x86-branch src/code (signal.lisp)

Raymond Toy rtoy at common-lisp.net
Tue Dec 14 21:24:09 UTC 2010


    Date: Tuesday, December 14, 2010 @ 16:24:09
  Author: rtoy
    Path: /project/cmucl/cvsroot/src/code
     Tag: cross-sol-x86-branch

Modified: signal.lisp

Fix up calls to with-textdomain which was missing the second arg when
compiled on solaris/x86.


-------------+
 signal.lisp |   10 +++++-----
 1 file changed, 5 insertions(+), 5 deletions(-)


Index: src/code/signal.lisp
diff -u src/code/signal.lisp:1.41 src/code/signal.lisp:1.41.8.1
--- src/code/signal.lisp:1.41	Tue Jul 13 23:13:20 2010
+++ src/code/signal.lisp	Tue Dec 14 16:24:09 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/signal.lisp,v 1.41 2010-07-14 03:13:20 rtoy Rel $")
+  "$Header: /project/cmucl/cvsroot/src/code/signal.lisp,v 1.41.8.1 2010-12-14 21:24:09 rtoy Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -104,7 +104,7 @@
 (def-unix-signal :SIGIOT 6 "Iot instruction") ; Compatibility
 (def-unix-signal :SIGABRT 6 "C abort()")
 (intl::with-textdomain ("cmucl" #+linux "cmucl-linux-os"
-				#+sparc "cmucl-sparc-svr4"
+				#+(or sparc solaris) "cmucl-sparc-svr4"
 				#+bsd "cmucl-bsd-os")
 #-linux
 (def-unix-signal :SIGEMT 7 "Emt instruction"))
@@ -115,7 +115,7 @@
 (def-unix-signal :SIGBUS #-linux 10 #+linux 7 "Bus error")
 (def-unix-signal :SIGSEGV 11 "Segmentation violation")
 (intl::with-textdomain ("cmucl" #+linux "cmucl-linux-os"
-				#+sparc "cmucl-sparc-svr4"
+				#+(or sparc solaris) "cmucl-sparc-svr4"
 				#+bsd "cmucl-bsd-os")
 #-linux
 (def-unix-signal :SIGSYS 12 "Bad argument to system call"))
@@ -124,7 +124,7 @@
 (def-unix-signal :SIGALRM 14 "Alarm clock")
 (def-unix-signal :SIGTERM 15 "Software termination signal")
 (intl::with-textdomain ("cmucl" #+linux "cmucl-linux-os"
-				#+sparc "cmucl-sparc-svr4"
+				#+(or sparc solaris) "cmucl-sparc-svr4"
 				#+bsd "cmucl-bsd-os")
 #+linux
 (def-unix-signal :SIGSTKFLT 16 "Stack fault on coprocessor"))
@@ -163,7 +163,7 @@
 
 ;;; SVR4 (or Solaris?) specific signals
 (intl::with-textdomain ("cmucl" #+linux "cmucl-linux-os"
-				#+sparc "cmucl-sparc-svr4"
+				#+(or sparc solaris) "cmucl-sparc-svr4"
 				#+bsd "cmucl-bsd-os")
 #+svr4
 (def-unix-signal :SIGWAITING 32 "Process's lwps are blocked"))




More information about the cmucl-cvs mailing list