SBCL 0.9.2.x

If Christian is right with this patch suggestion then all the things
must be change or am I wrong?

One can find in dependent.lisp
line 1182    (declare (type function predicate))
  (let* ((pid (sb-thread:current-thread-id))

line 1200
	   (format *trace-output* "thread ~A, process-block timed out~%"
		   (sb-thread:current-thread-id) )))))))

line 1244
	   (format *trace-output* "thread ~A, process-block timed out~%"
		   (sb-thread:current-thread-id) )))))))

and the part Christian has send. So the patch should probably look like
this:

Well this is not tested, just that's what I found.

Regards
Friedrich



--- dependent.lisp	2005-07-10 09:27:20.076057083 +0200
+++ dependent.lisp.old	2005-07-10 09:24:41.214820196 +0200
@@ -1179,7 +1179,7 @@
 (defun process-block (whostate predicate &rest predicate-args)
   (declare (ignore whostate))
   (declare (type function predicate))
-  (let* ((pid (current-process))
+  (let* ((pid (sb-thread:current-thread-id))
 	 (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~%"
-		   (current-process) )))))))
+		   (sb-thread:current-thread-id) )))))))
 
 ;;; PROCESS-WAKEUP: Check some other process' wait function.
 
@@ -1241,7 +1241,7 @@
 (defun process-wakeup (process)
   (declare (ignore process))
   (destructuring-bind (lock . queue)
-      (gethash (current-process) *process-conditions*
+      (gethash (sb-thread:current-thread-id) *process-conditions*
 	       (cons nil nil))
     (declare (ignore lock))
     (when queue
@@ -1282,7 +1282,7 @@
 
 #+sbcl
 (defun current-process ()
-  (sb-thread:current-thread))
+  (sb-thread:current-thread-id))
 
 ;;; WITHOUT-INTERRUPTS -- provide for atomic operations.
 

_______________________________________________
Portable-clx mailing list
[email protected]
http://lists.metacircles.com/cgi-bin/mailman/listinfo/portable-clx
cvs -d :ext:cvs.telent.net:/usr/local/src/cvs co clx  # over ssh
cvs -d :pserver:[email protected]:/cvs co clx  # anonymous