sbcl-0.9.2.10-threads-support, from Christophe Rhodes

darcs-hash:20050714141147-a4961-3c2ee181837eed986a6fdecb9901809aecb4ae9c.gz
sharplispers · Jul 14, 2005 · c243b65 · c243b65
1 parent 3e036ca
commit c243b65
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/dependent.lisp b/dependent.lisp
@@ -1282,7 +1282,7 @@
 
 #+sbcl
 (defun current-process ()
-  (sb-thread:current-thread-id))
+  sb-thread:*current-thread*)
 
 ;;; WITHOUT-INTERRUPTS -- provide for atomic operations.