Changeset 11135 for trunk/source/level-1


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

Location:
trunk/source/level-1
Files:
7 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")
  • trunk/source/level-1/l1-files.lisp

    r10942 r11135  
    808808                                  (eql (schar sstr 1) #\:))
    809809                           (setq pos2 2)))
    810                       (pathname-directory-sstr sstr pos2 end host))))
     810                       (pathname-directory-sstr sstr pos2 end host))))
    811811                  (t (report-bad-arg path pathname-arg-type)))))
    812812    (if (and case (neq case :local))
     
    12351235           (*readtable* *readtable*)
    12361236           (*loading-files* (cons file-name (specialv *loading-files*)))
    1237            (*loading-file-source-file* (namestring source-file))) ;reset by fasload to logical name stored in the file?
     1237           ;;reset by fasload to logical name stored in the file
     1238           (*loading-file-source-file* (namestring source-file)))
    12381239      (declare (special *loading-files* *loading-file-source-file*))
    12391240      (when verbose
  • trunk/source/level-1/l1-init.lisp

    r10672 r11135  
    255255(defparameter *break-level* 0)
    256256(defparameter *last-break-level* 0)
    257 (defvar *record-source-file* nil)       ; set in l1-utils.
    258 (defvar *warn-if-redefine* nil)         ; set in l1-utils.
     257(defparameter *warn-if-redefine* nil)
     258(defvar *record-source-file*)           ; set in l1-utils.
    259259(defparameter *level-1-loaded* nil)     ; set t by l1-boot
    260260(defparameter *save-definitions* nil)
  • 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)))
  • trunk/source/level-1/l1-streams.lisp

    r10942 r11135  
    1717
    1818(in-package "CCL")
     19
    1920;;;
    2021
  • 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
  • trunk/source/level-1/level-1.lisp

    r5173 r11135  
    9494  (l1-load "l1-boot-2")
    9595  (l1-load "l1-boot-3")
     96
     97  ;; Without this, forms from the -e command line parameter would run with
     98  ;; *loading-file-source-file* set to "l1-boot-3".
     99  (setq *loading-file-source-file* nil)
    96100  )
    97101
    98102(require "PREPARE-MCL-ENVIRONMENT")
    99 (progn (%set-toplevel #'toplevel-loop) (set-user-environment t) (toplevel))
    100 
    101 
    102 
    103 
     103(progn
     104  (%set-toplevel #'toplevel-loop)
     105  (set-user-environment t)
     106  (toplevel))
Note: See TracChangeset for help on using the changeset viewer.