;;;; system calls that deal with signals
#!-sb-fluid (declaim (inline real-unix-kill))
-(sb!alien:def-alien-routine ("kill" real-unix-kill) sb!c-call:int
+(sb!alien:define-alien-routine ("kill" real-unix-kill) sb!c-call:int
(pid sb!c-call:int)
(signal sb!c-call:int))
(real-unix-kill pid (unix-signal-number signal)))
#!-sb-fluid (declaim (inline real-unix-killpg))
-(sb!alien:def-alien-routine ("killpg" real-unix-killpg) sb!c-call:int
+(sb!alien:define-alien-routine ("killpg" real-unix-killpg) sb!c-call:int
(pgrp sb!c-call:int)
(signal sb!c-call:int))
;;; 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.)
-(sb!alien:def-alien-routine ("sigsetmask" unix-sigsetmask)
- sb!c-call:unsigned-long
+(sb!alien:define-alien-routine ("sigsetmask" unix-sigsetmask)
+ sb!c-call:unsigned-long
(mask sb!c-call:unsigned-long))
\f
;;;; C routines that actually do all the work of establishing signal handlers
-(sb!alien:def-alien-routine ("install_handler" install-handler)
- sb!c-call:unsigned-long
+(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))
\f
(defun sigquit-handler (signal code context)
(declare (ignore signal code context))
- (throw 'sb!impl::top-level-catcher nil))
+ (throw 'sb!impl::toplevel-catcher nil))
(defun sb!kernel:signal-cold-init-or-reinit ()
#!+sb-doc