Changeset 7853


Ignore:
Timestamp:
Dec 9, 2007, 1:40:18 PM (13 years ago)
Author:
gb
Message:

Conditionalize lock accounting.

File:
1 edited

Legend:

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

    r7729 r7853  
    677677          (t (error "Failed to join ~s" p)))))
    678678
     679
    679680(defmethod process-locks-held ((p process))
     681  #+lock-accounting
    680682  (copy-list (symbol-value-in-process '*locks-held* p)))
    681683
    682684(defmethod process-locks-pending ((p process))
     685  #+lock-accounting
    683686  (copy-list (symbol-value-in-process '*locks-pending* p)))
Note: See TracChangeset for help on using the changeset viewer.