X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-signal.lisp;h=9ad1f365d850d17c6d531c5e503af25779a8932c;hb=f0d511130027c6878f08d619ccc92ef588d81223;hp=447d181a86d5f9666d075667d01470c68687dd86;hpb=6139c89c89f45c03509e4f3156293ff656716a8c;p=sbcl.git

diff --git a/src/code/target-signal.lisp b/src/code/target-signal.lisp
index 447d181..9ad1f36 100644
--- a/src/code/target-signal.lisp
+++ b/src/code/target-signal.lisp
@@ -47,6 +47,7 @@
 ;;; can pull it out of the CMU CL sources, or the old SBCL sources;
 ;;; but you might also consider doing things the SBCL way and moving
 ;;; this kind of C-level work down to C wrapper functions.)
+#!-sunos
 (sb!alien:define-alien-routine ("sigsetmask" unix-sigsetmask)
 			       sb!alien:unsigned-long
   (mask sb!alien:unsigned-long))
@@ -85,7 +86,7 @@
 
 ;;; SIGINT is handled like BREAK, except that ANSI BREAK ignores
 ;;; *DEBUGGER-HOOK*, but we want SIGINT's BREAK to respect it, so that
-;;; SIGINT in --noprogrammer mode will cleanly terminate the system
+;;; SIGINT in --disable-debugger mode will cleanly terminate the system
 ;;; (by respecting the *DEBUGGER-HOOK* established in that mode).
 (defun sigint-%break (format-string &rest format-arguments)
   (apply #'%break 'sigint format-string format-arguments))