Changeset 7853

Timestamp:

Dec 9, 2007, 5:40:18 AM (17 years ago)

Author:

Gary Byers

Message:

Conditionalize lock accounting.

File:

• branches/working-0711/ccl/level-1/l1-processes.lisp (modified) (1 diff)

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

@@ -677 +677 @@
           (t (error "Failed to join ~s" p)))))
 
+
 (defmethod process-locks-held ((p process))
+  #+lock-accounting
   (copy-list (symbol-value-in-process '*locks-held* p)))
 
 (defmethod process-locks-pending ((p process))
+  #+lock-accounting
   (copy-list (symbol-value-in-process '*locks-pending* p)))