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-processes.lisp

    r10876 r11135  
    391391                      (setq exited t)
    392392                      nil)
    393                     (abort-break () :report "Reset this process")
    394                     (abort () :report "Kill this process" (setq exited t)))
     393                    (abort-break () :report "Reset this thread")
     394                    (abort () :report "Kill this thread" (setq exited t)))
    395395                 (process-reset (condition)
    396396                   (process-reset-kill condition)))))
     
    727727
    728728
    729 (defmethod process-locks-held ((p process))
    730   #+lock-accounting
    731   (copy-list (symbol-value-in-process '*locks-held* p)))
    732 
    733 (defmethod process-locks-pending ((p process))
    734   #+lock-accounting
    735   (copy-list (symbol-value-in-process '*locks-pending* p)))
Note: See TracChangeset for help on using the changeset viewer.