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

    r11039 r11135  
    2828
    2929
    30 (setq *warn-if-redefine-kernel* nil)
    31 
    32 (setq *warn-if-redefine* nil)
    33 (setq *record-source-file* t)
    34 
    3530;;; Kludge for record-source-file bootstrapping
    36 
    37 ; Set T by l1-boot.lisp
    38 (setq *level-1-loaded* nil)
    3931
    4032(%fhave 'full-pathname (qlfun bootstrapping-full-pathname (name) name))
     
    4739(fset 'physical-pathname-p (lambda (file)(declare (ignore file)) nil)) ; redefined later
    4840
    49 
    50 ;(%defvar *enqueued-window-title* nil)
     41(setq *record-source-file* t)
    5142
    5243(fset 'level-1-record-source-file
Note: See TracChangeset for help on using the changeset viewer.