X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=contrib%2Fsb-sprof%2Fsb-sprof.lisp;h=9a4b4745c7475c8e8633ae8a89ea3955a1ecfc96;hb=c8fedad1fe873eeb483868ec75d292973071f33d;hp=0d816490c470185fcdbaf2de0bfebb04ae9233a6;hpb=b7de1001e4c2602174506d875e1c1460258fbc07;p=sbcl.git

diff --git a/contrib/sb-sprof/sb-sprof.lisp b/contrib/sb-sprof/sb-sprof.lisp
index 0d81649..9a4b474 100644
--- a/contrib/sb-sprof/sb-sprof.lisp
+++ b/contrib/sb-sprof/sb-sprof.lisp
@@ -506,8 +506,10 @@ profiling")
   ;; Ensure that only one thread at a time will be doing profiling stuff.
   (defvar *profiler-lock* (sb-thread:make-mutex :name "Statistical Profiler"))
   (defvar *distribution-lock* (sb-thread:make-mutex :name "Wallclock profiling lock"))
-
+  
+  #+sb-thread
   (declaim (inline pthread-kill))
+  #+sb-thread
   (define-alien-routine pthread-kill int (os-thread unsigned-long) (signal int))
 
   ;;; A random thread will call this in response to either a timer firing,