Ignore:
Timestamp:
Nov 20, 2008, 6:51:45 PM (12 years ago)
Author:
gz
Message:

Remove obsolete bootstrapping code, fix indentation

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/lib/nfcomp.lisp

    r11373 r11420  
    4545) ;eval-when (:compile-toplevel :execute)
    4646
    47 ; inited in l1-init, this is for when loading into a lisp that doesn't have it yet.
    48 #-BOOTSTRAPPED (eval-when (compile load eval)
    49                  (unless (boundp '*LOADING-TOPLEVEL-LOCATION*)
    50                    (declaim (special *loading-toplevel-location*))
    51                    (defparameter *save-source-locations* nil)))
    5247
    5348;File compiler options.  Not all of these need to be exported/documented, but
     
    471466                                (signal c))))
    472467                  (multiple-value-setq (form *loading-toplevel-location*)
    473                     (if *fcomp-source-note-map* ;; #-BOOTSTRAPPED
    474                       (read-recording-source stream
    475                                              :eofval eofval
    476                                              :file-name *loading-file-source-file*
    477                                              :start-offset orig-offset
    478                                              :map *fcomp-source-note-map*
    479                                              :save-source-text (neq *save-source-locations* :no-text))
    480                       (read-recording-source stream
    481                                              :eofval eofval
    482                                              :file-name *loading-file-source-file*
    483                                              :start-offset orig-offset))))))
     468                    (read-recording-source stream
     469                                           :eofval eofval
     470                                           :file-name *loading-file-source-file*
     471                                           :start-offset orig-offset
     472                                           :map *fcomp-source-note-map*
     473                                           :save-source-text (neq *save-source-locations* :no-text))))))
    484474            (when (eq eofval form)
    485475              (require-type *loading-toplevel-location* 'null)
Note: See TracChangeset for help on using the changeset viewer.