Changeset 7854

Timestamp:

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

Author:

Gary Byers

Message:

Conditionalize lock accounting.

File:

• branches/working-0711/ccl/lib/macros.lisp (modified) (1 diff)

branches/working-0711/ccl/lib/macros.lisp

@@ -2337 +2337 @@
 ;;; Bind per-thread specials which help with lock accounting.
 (defmacro with-lock-context (&body body)
+  #+lock-accounting
   `(let* ((*locks-held* *locks-held*)
           (*locks-pending* *locks-pending*)
           (*lock-conses* *lock-conses*))
-    ,@body))
+    ,@body)
+  #-lock-accounting
+  `(progn ,@body))
 
 (defmacro with-lock-grabbed ((lock &optional