[cl-debian] Bug#351810: disable-process does not work in sbcl.

[Haldun Bayhantopcu]

Package: cl-acl-compat
Version: 1.2.42+cvs.2005.02.21
Severity: critical
Tags: patch

Multiprocessing library doesn't for SBCL version 0.9.8. I found out 
that the problem is in the disable-process function of acl-mp.lisp.

I paste the diff below.

Haldun.

--- /usr/share/common-lisp/source/acl-compat/sbcl/acl-mp.lisp	2004-09-24 19:57:17.000000000 +0300
+++ acl-mp.lisp	2006-02-07 17:51:18.000000000 +0200
@@ -243,7 +243,7 @@
   ;; TODO: set process-whostate
   ;; Can't figure out how to safely block a thread from a different one
   ;; and handle all the locking nastiness.  So punt for now.
-  (if (eql (sb-thread:current-thread-id) (process-id process))
+  (if (eql sb-thread:*current-thread* (process-id process))
       ;; Keep waiting until we have a reason to run.  GC and other
       ;; things can break a wait prematurely.  Don't know if this is
       ;; expected or not.


-- System Information:
Debian Release: 3.1
  APT prefers testing
  APT policy: (100, 'testing'), (50, 'unstable')
Architecture: i386 (i686)
Kernel: Linux 2.6.12-1-686
Locale: LANG=en_US, LC_CTYPE=en_US (charmap=ISO-8859-1)

Versions of packages cl-acl-compat depends on:
ii  cl-ppcre                      1.2.4-1    Portable Regular Express Library f
ii  cl-puri                       1.3.1.1-2  Common Lisp Portable URI Library
ii  common-lisp-controller        4.27       This is a Common Lisp source and c

-- no debconf information