[cl-debian] Bug#331371: cl-clx-sbcl: fails to build with new sbcl

[Peter Van Eynde]

Package: cl-clx-sbcl
Version: 0.7.0-1
Severity: important
Tags: sid patch

a patch (included) is required because of changes in the
mp support of sbcl. Maybe a newer upstream is available?

Groetjes, Peter


-- System Information:
Debian Release: testing/unstable
  APT prefers unstable
  APT policy: (500, 'unstable'), (500, 'testing'), (500, 'stable')
Architecture: i386 (i686)
Shell:  /bin/sh linked to /bin/bash
Kernel: Linux 2.6.13-mine1
Locale: LANG=nl_BE.UTF-8 at euro, LC_CTYPE=it_IT (charmap=UTF-8) (ignored: LC_ALL set to it_IT.UTF-8)

Versions of packages cl-clx-sbcl depends on:
ii  cl-asdf                       1.89-1     Another System Definition Facility
ii  common-lisp-controller        4.19       This is a Common Lisp source and c

Versions of packages cl-clx-sbcl recommends:
ii  sbcl                         1:0.9.5.9-1 A development environment for Comm

-- no debconf information
-------------- next part --------------
diff -Ndrux '*.fasl' /usr/share/common-lisp/source/clx/dependent.lisp clx/dependent.lisp
--- /usr/share/common-lisp/source/clx/dependent.lisp	2005-04-29 17:12:08.000000000 +0200
+++ clx/dependent.lisp	2005-10-03 07:16:17.000000000 +0200
@@ -1179,7 +1179,7 @@
 (defun process-block (whostate predicate &rest predicate-args)
   (declare (ignore whostate))
   (declare (type function predicate))
-  (let* ((pid (sb-thread:current-thread-id))
+  (let* ((pid (current-process))
 	 (last (gethash  pid *process-conditions*))
 	 (lock
 	  (or (car last)
@@ -1197,7 +1197,7 @@
 	     (sb-thread:condition-wait queue lock))
 	 (sb-ext:timeout ()
 	   (format *trace-output* "thread ~A, process-block timed out~%"
-		   (sb-thread:current-thread-id) )))))))
+                   (current-process))))))))
 
 ;;; PROCESS-WAKEUP: Check some other process' wait function.
 
@@ -1241,7 +1241,7 @@
 (defun process-wakeup (process)
   (declare (ignore process))
   (destructuring-bind (lock . queue)
-      (gethash (sb-thread:current-thread-id) *process-conditions*
+      (gethash (current-process) *process-conditions*
 	       (cons nil nil))
     (declare (ignore lock))
     (when queue
@@ -1282,7 +1282,10 @@
 
 #+sbcl
 (defun current-process ()
-  (sb-thread:current-thread-id))
+   #+#.(cl:if (cl:find-symbol "THREAD-NAME" "SB-THREAD") '(and) '(or))
+   sb-thread:*current-thread*
+   #-#.(cl:if (cl:find-symbol "THREAD-NAME" "SB-THREAD") '(and) '(or))
+   (sb-thread:current-thread-id))
 
 ;;; WITHOUT-INTERRUPTS -- provide for atomic operations.