Blob Blame History Raw
diff -up ecl-9.6.1/src/clx/dependent.lisp.mp ecl-9.6.1/src/clx/dependent.lisp
--- ecl-9.6.1/src/clx/dependent.lisp.mp	2009-06-16 21:47:04.000000000 +0200
+++ ecl-9.6.1/src/clx/dependent.lisp	2009-06-16 21:47:24.000000000 +0200
@@ -1321,7 +1321,7 @@
 
 #+(and ecl threads)
 (defun current-process ()
-  (mp:current-process))
+  mp:*current-process*)
 
 ;;; WITHOUT-INTERRUPTS -- provide for atomic operations.