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-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
Note: See TracChangeset for help on using the changeset viewer.