Changeset 7692

Timestamp:

Nov 20, 2007, 3:06:09 PM (13 years ago)

Author:

gb

Message:

New locking stuff; PROCESS-LOCKS-HELD, PROCESS-LOCKS-PENDING.

File:

• branches/working-0710/ccl/level-1/l1-processes.lisp (modified) (2 diffs)

branches/working-0710/ccl/level-1/l1-processes.lisp

@@ -423 +423 @@
 (defun grab-lock (lock &optional flag)
   "Wait until a given lock can be obtained, then obtain it."
-  (%lock-recursive-lock (recursive-lock-ptr lock) flag))
+  (%lock-recursive-lock-object lock flag))
 
 (defun release-lock (lock)
   "Relinquish ownership of a given lock."
-  (%unlock-recursive-lock (recursive-lock-ptr lock)))
+  (%unlock-recursive-lock-object lock))
 
 (defun try-lock (lock &optional flag)
   "Obtain the given lock, but only if it is not necessary to wait for it."
-  (%try-recursive-lock (recursive-lock-ptr lock) flag))
+  (%try-recursive-lock-object lock flag))
 
 (defun lock-acquisition-status (thing)
@@ -676 +676 @@
           (defaultp default)
           (t (error "Failed to join ~s" p)))))
+
+(defmethod process-locks-held ((p process))
+  (copy-list (symbol-value-in-process '*locks-held* p)))
+
+(defmethod process-locks-pending ((p process))
+  (copy-list (symbol-value-in-process '*locks-pending* p)))