Changeset 7852

Timestamp:

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

Author:

Gary Byers

Message:

Conditionalize lock accounting.

File:

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

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

@@ -44 +44 @@
 (def-standard-initial-binding *gensym-counter* 0)
 (def-standard-initial-binding *random-state* (initialize-random-state #xFBF1 9))
+#+lock-accounting
+(progn
 (def-standard-initial-binding *locks-held* ())
 (def-standard-initial-binding *locks-pending* ())
-(def-standard-initial-binding *lock-conses* (make-list 20))
+(def-standard-initial-binding *lock-conses* (make-list 20)))