Index: /branches/working-0711/ccl/level-1/l1-aprims.lisp
===================================================================
--- /branches/working-0711/ccl/level-1/l1-aprims.lisp	(revision 7851)
+++ /branches/working-0711/ccl/level-1/l1-aprims.lisp	(revision 7852)
@@ -44,7 +44,9 @@
 (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)))