X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fcode%2Ftarget-thread.lisp;h=2021cfb2cd586f25c4cc5f23b0fbfb89f069d4ff;hb=007bcd5aac2f3a1e714563bd39f7a2db2d0bf7c2;hp=213021305fb317b519808cd76a0d6060bdda8d89;hpb=4b13aa3a7f0f4c6249e2787f4171e3c362d634c1;p=sbcl.git

diff --git a/src/code/target-thread.lisp b/src/code/target-thread.lisp
index 2130213..2021cfb 100644
--- a/src/code/target-thread.lisp
+++ b/src/code/target-thread.lisp
@@ -120,8 +120,14 @@ in future versions."
   (define-alien-routine ("create_thread" %create-thread)
       unsigned-long (lisp-fun-address unsigned-long))
 
-  (define-alien-routine "block_deferrable_signals"
-      void)
+  (declaim (inline %block-deferrable-signals))
+  (define-alien-routine ("block_deferrable_signals" %block-deferrable-signals)
+      void
+    (where sb!alien:unsigned-long)
+    (old sb!alien:unsigned-long))
+
+  (defun block-deferrable-signals ()
+    (%block-deferrable-signals 0 0))
 
   #!+sb-lutex
   (progn