X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fruntime.h;h=01f40318c4653635bed8ec2bead947e6c74aa5a7;hb=0d4c7a1323106c6e60511bef929048edcb040205;hp=9f38dab05ae83ca8aa129880cf79cd3cdbda9b98;hpb=dca9c046b59d56ecddf36169f6994119ef8aeace;p=sbcl.git

diff --git a/src/runtime/runtime.h b/src/runtime/runtime.h
index 9f38dab..01f4031 100644
--- a/src/runtime/runtime.h
+++ b/src/runtime/runtime.h
@@ -16,14 +16,14 @@
 #define _SBCL_RUNTIME_H_
 
 #if defined(LISP_FEATURE_SB_THREAD)
-#define thread_self pthread_self
+#define thread_self() pthread_self()
 #define thread_kill pthread_kill
 #define thread_sigmask pthread_sigmask
 #define thread_mutex_lock(l) pthread_mutex_lock(l)
 #define thread_mutex_unlock(l) pthread_mutex_unlock(l)
 #else
-#define thread_self getpid
-#define thread_kill kill
+#define thread_self() 0
+#define thread_kill kill_safely
 #define thread_sigmask sigprocmask
 #define thread_mutex_lock(l) 0
 #define thread_mutex_unlock(l) 0