Ignore:
Timestamp:
Oct 17, 2008, 1:26:11 PM (11 years ago)
Author:
gz
Message:

Mostly semantically insignificant indentation/comments/etc changes, remove more lock-accounting and class-cell bootstrapping remnants, rename -symmap-bit to -info-bit

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-aprims.lisp

    r10672 r11135  
    4141    symbol))
    4242
    43 (defstatic *kernel-tcr-area-lock* (%make-lock (%null-ptr) "Kernal tcr-area-lock"))
    44 
    45 (defstatic *kernel-exception-lock* (%make-lock (%null-ptr) "Kernal exception-lock"))
     43(defstatic *kernel-tcr-area-lock* (%make-lock (%null-ptr) "Kernel tcr-area-lock"))
     44
     45(defstatic *kernel-exception-lock* (%make-lock (%null-ptr) "Kernel exception-lock"))
    4646 
    4747(def-ccl-pointers kernel-locks ()
     
    5656(def-standard-initial-binding *gensym-counter* 0)
    5757(def-standard-initial-binding *random-state* (initialize-random-state #xFBF1 9))
    58 #+lock-accounting
    59 (progn
    60 (def-standard-initial-binding *locks-held* ())
    61 (def-standard-initial-binding *locks-pending* ())
    62 (def-standard-initial-binding *lock-conses* (make-list 20)))
    6358(def-standard-initial-binding *whostate* "Reset")
    6459(setq *whostate* "Reset")
Note: See TracChangeset for help on using the changeset viewer.