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"))