X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fcode%2Ftarget-signal.lisp;h=15f14be0778b54171c8bf9b10436aa1c9cf9f464;hb=cd176690400f8b6fa23faa4dc6fa8494bcbce480;hp=2d2a0210281be62c31500757cbde9023fb299da7;hpb=5ec8d0c1c8b7939818b75118b472fac1af554f9a;p=sbcl.git

diff --git a/src/code/target-signal.lisp b/src/code/target-signal.lisp
index 2d2a021..15f14be 100644
--- a/src/code/target-signal.lisp
+++ b/src/code/target-signal.lisp
@@ -18,7 +18,7 @@
 ;;;; 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))
 
@@ -29,7 +29,7 @@
   (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))
 
@@ -47,13 +47,13 @@
 ;;; 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))
 
 ;;;; 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))