Changeset 7852


Ignore:
Timestamp:
Dec 9, 2007, 1:40:04 PM (13 years ago)
Author:
gb
Message:

Conditionalize lock accounting.

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/level-1/l1-aprims.lisp

    r7792 r7852  
    4444(def-standard-initial-binding *gensym-counter* 0)
    4545(def-standard-initial-binding *random-state* (initialize-random-state #xFBF1 9))
     46#+lock-accounting
     47(progn
    4648(def-standard-initial-binding *locks-held* ())
    4749(def-standard-initial-binding *locks-pending* ())
    48 (def-standard-initial-binding *lock-conses* (make-list 20))
     50(def-standard-initial-binding *lock-conses* (make-list 20)))
    4951
    5052
Note: See TracChangeset for help on using the changeset viewer.