Changeset 12332


Ignore:
Timestamp:
Jun 30, 2009, 7:36:25 PM (10 years ago)
Author:
gz
Message:

Fixes for recording source locations in random toplevel forms

File:
1 edited

Legend:

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

    r12327 r12332  
    960960          (setf (%car new-form) (%car form))
    961961          (fcomp-note-source-transformation form (setq form (copy-list new-form))))))
     962    ;; At some point we will dump the toplevel forms, make sure that when that happens,
     963    ;;; the loading location for this form is stored in *fcomp-loading-toplevel-location*,
     964    ;; because *loading-toplevel-location* will be long gone by then.
    962965    (fcomp-ensure-source env)
    963966    (push form *fcomp-toplevel-forms*)))
     
    982985    (let* ((forms (nreverse *fcomp-toplevel-forms*))
    983986           (*fcomp-stream-position* *fcomp-previous-position*)
     987           (*loading-toplevel-location* *fcomp-loading-toplevel-location*)
    984988           (lambda (if T ;; (null (cdr forms))
    985989                     `(lambda () ,@forms)
     
    994998                     $fasl-lfuncall
    995999                     env
    996                      (fcomp-named-function lambda nil env))
     1000                     (fcomp-named-function lambda nil env *loading-toplevel-location*))
    9971001        (compiler-function-overflow ()
    9981002          (if (null (cdr forms))
Note: See TracChangeset for help on using the changeset viewer.