[Lispweb] Small patch for Araneida and mt SBCL

[Friedrich Dominicus]

Now here's a small patch needed to get Araneida run here: 

Debian 2.6.10 AMD64 sbcl "0.9.3.28" (multithreaded)


--- compat-sbcl.lisp.old	2005-08-08 11:22:45.000000000 +0200
+++ compat-sbcl.lisp	2005-08-08 11:20:26.000000000 +0200
@@ -63,7 +63,9 @@
     (sb-thread:make-thread thunk))
   
   (defun host-thread-alivep (pid)
-    (zerop (sb-unix:unix-kill pid 0)))
+    (sb-thread:thread-alive-p pid))
+    ;;(inspect pid)
+    ;;(zerop (sb-unix:unix-kill pid 0)))
   
   (defun host-thread-kill (pid)
     (sb-thread:terminate-thread pid)))


Well as much as I can tell is pid not a number but  thread structure,
I hope my pach does the "right" stuff but am not fully sure.

Regards
Friedrich