X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fpthread-lutex.c;h=636521403598b1ab534ce9064383c38afb140bd0;hb=a01e7ac2e8a9f3afae8f759381a0829fceb5bfde;hp=2da0291eba8afeb96411cdac91cbc024d6cda65e;hpb=b6537fc9d37ad800f8faba89ebbde7fdf8910d2a;p=sbcl.git

diff --git a/src/runtime/pthread-lutex.c b/src/runtime/pthread-lutex.c
index 2da0291..6365214 100644
--- a/src/runtime/pthread-lutex.c
+++ b/src/runtime/pthread-lutex.c
@@ -22,11 +22,11 @@
 #include "arch.h"
 #include "target-arch-os.h"
 #include "os.h"
+#include "pthread-lutex.h"
+#include "gencgc.h"
 
 #include "genesis/lutex.h"
 
-typedef unsigned long tagged_lutex_t;
-
 #if 1
 # define lutex_assert(ex)                                              \
 do {                                                                   \
@@ -138,7 +138,11 @@ lutex_lock (tagged_lutex_t tagged_lutex)
     struct lutex *lutex = (struct lutex*) native_pointer(tagged_lutex);
 
     ret = thread_mutex_lock(lutex->mutex);
-    /* The mutex is locked by the same thread. */
+    /* The mutex is locked by the same thread.
+     *
+     * FIXME: Usually when POSIX says that "an error value is returned"
+     * it actually refers to errno...
+     */
     if (ret == EDEADLK)
         return ret;
     lutex_assert(ret == 0);