\f
;;;; system calls that deal with signals
+;;; Send the signal SIGNAL to the process with process id PID. SIGNAL
+;;; should be a valid signal number
#!-sb-fluid (declaim (inline real-unix-kill))
-(sb!alien:define-alien-routine ("kill" real-unix-kill) sb!alien:int
+(sb!alien:define-alien-routine ("kill" 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
-(defun unix-kill (pid signal)
- (real-unix-kill pid signal))
-
+;;; Send the signal SIGNAL to the all the process in process group
+;;; PGRP. SIGNAL should be a valid signal number
#!-sb-fluid (declaim (inline real-unix-killpg))
-(sb!alien:define-alien-routine ("killpg" real-unix-killpg) sb!alien:int
+(sb!alien:define-alien-routine ("killpg" 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
-(defun unix-killpg (pgrp signal)
- (real-unix-killpg pgrp signal))
-
;;; Reset the current set of masked signals (those being blocked from
;;; delivery).
;;;
(defun enable-interrupt (signal handler)
(declare (type (or function fixnum (member :default :ignore)) handler))
+ (/show0 "enable-interrupt")
(without-gcing
(let ((result (install-handler signal
(case handler
`(defun ,name (signal info context)
(declare (ignore signal info))
(declare (type system-area-pointer context))
- (/show "in Lisp-level signal handler" (sap-int context))
+ (/show "in Lisp-level signal handler" ,(symbol-name name) (sap-int context))
(,function ,(concatenate 'simple-string what " at #X~X")
(with-alien ((context (* os-context-t) context))
(sap-int (sb!vm:context-pc context)))))))