Changeset 7729


Ignore:
Timestamp:
Nov 25, 2007, 2:28:52 AM (12 years ago)
Author:
gb
Message:

Locking changes.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-processes.lisp

    r7330 r7729  
    423423(defun grab-lock (lock &optional flag)
    424424  "Wait until a given lock can be obtained, then obtain it."
    425   (%lock-recursive-lock (recursive-lock-ptr lock) flag))
     425  (%lock-recursive-lock-object lock flag))
    426426
    427427(defun release-lock (lock)
    428428  "Relinquish ownership of a given lock."
    429   (%unlock-recursive-lock (recursive-lock-ptr lock)))
     429  (%unlock-recursive-lock-object lock))
    430430
    431431(defun try-lock (lock &optional flag)
    432432  "Obtain the given lock, but only if it is not necessary to wait for it."
    433   (%try-recursive-lock (recursive-lock-ptr lock) flag))
     433  (%try-recursive-lock-object lock flag))
    434434
    435435(defun lock-acquisition-status (thing)
     
    676676          (defaultp default)
    677677          (t (error "Failed to join ~s" p)))))
     678
     679(defmethod process-locks-held ((p process))
     680  (copy-list (symbol-value-in-process '*locks-held* p)))
     681
     682(defmethod process-locks-pending ((p process))
     683  (copy-list (symbol-value-in-process '*locks-pending* p)))
Note: See TracChangeset for help on using the changeset viewer.