;;;; system calls that deal with signals
#!-sb-fluid (declaim (inline real-unix-kill))
-(sb!alien:define-alien-routine ("kill" real-unix-kill) sb!c-call:int
- (pid sb!c-call:int)
- (signal sb!c-call:int))
+(sb!alien:define-alien-routine ("kill" real-unix-kill) sb!alien:int
+ (pid sb!alien:int)
+ (signal sb!alien:int))
;;; Send the signal SIGNAL to the process with process id PID. SIGNAL
;;; should be a valid signal number or a keyword of the standard UNIX
(real-unix-kill pid (unix-signal-number signal)))
#!-sb-fluid (declaim (inline real-unix-killpg))
-(sb!alien:define-alien-routine ("killpg" real-unix-killpg) sb!c-call:int
- (pgrp sb!c-call:int)
- (signal sb!c-call:int))
+(sb!alien:define-alien-routine ("killpg" real-unix-killpg) sb!alien:int
+ (pgrp sb!alien:int)
+ (signal sb!alien:int))
;;; Send the signal SIGNAL to the all the process in process group
;;; PGRP. SIGNAL should be a valid signal number or a keyword of the
;;; 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!c-call:unsigned-long
- (mask sb!c-call:unsigned-long))
+ sb!alien:unsigned-long
+ (mask sb!alien:unsigned-long))
\f
;;;; C routines that actually do all the work of establishing signal handlers
(sb!alien:define-alien-routine ("install_handler" install-handler)
- sb!c-call:unsigned-long
- (signal sb!c-call:int)
- (handler sb!c-call:unsigned-long))
+ sb!alien:unsigned-long
+ (signal sb!alien:int)
+ (handler sb!alien:unsigned-long))
\f
;;;; interface to enabling and disabling signal handlers
;;; 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))