Changeset 12075


Ignore:
Timestamp:
May 16, 2009, 6:36:46 PM (10 years ago)
Author:
gz
Message:

From trunk: handle *xload-loading-toplevel-location*

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/xdump/xfasload.lisp

    r11821 r12075  
    15981598
    15991599(defun xload-record-source-file (symaddr indicator)
    1600   ;; need to do something with *xload-loading-toplevel-location*
    16011600  (when *xload-record-source-file-p*
    16021601    (when (or (eq indicator 'function)
    16031602              (eq indicator 'variable))
    16041603      (let* ((keyaddr (xload-copy-symbol 'bootstrapping-source-files))
    1605              (pathaddr (or *xload-loading-file-source-file*
     1604             (pathaddr (or *xload-loading-toplevel-location*
     1605                           *xload-loading-file-source-file*
    16061606                           (if *loading-file-source-file*
    16071607                             (setq *xload-loading-file-source-file* (xload-save-string *loading-file-source-file*))))))
Note: See TracChangeset for help on using the changeset viewer.