Index: /branches/working-0711/ccl/level-1/l1-processes.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-processes.lisp	(revision 7852)
+++ /branches/working-0711/ccl/level-1/l1-processes.lisp	(revision 7853)
@@ -677,7 +677,10 @@
           (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)))