Changeset 8868


Ignore:
Timestamp:
Mar 23, 2008, 10:15:07 PM (11 years ago)
Author:
mb
Message:

Emit $fasl-toplevel-location ops everytime we have a new 'real' toplevel form, even if it's not toplevel (in the case of (progn ...multiple definitions...))

File:
1 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl/lib/nfcomp.lisp

    r8867 r8868  
    448448              (require-type *fcomp-source-being-compiled* 'null)
    449449              (return))
    450             (when *fcomp-source-being-compiled*
    451               (fcomp-output-form $fasl-toplevel-location env *fcomp-source-being-compiled*))
     450            (fcomp-output-source-being-compiled env)
    452451            (fcomp-form form env processing-mode)
    453452            (setq *fcomp-previous-position* *fcomp-stream-position*))))
     
    466465        (fcomp-output-form $fasl-src env (namestring *compile-file-pathname*)))
    467466      (fcomp-compile-toplevel-forms env))))
     467
     468(defun fcomp-output-source-being-compiled (env)
     469  (when *fcomp-source-being-compiled*
     470    (fcomp-output-form $fasl-toplevel-location env *fcomp-source-being-compiled*)))
    468471
    469472(defun fcomp-form (form env processing-mode
     
    569572                                               (register-code-note-parent new old)
    570573                                               new))))
     574    (fcomp-output-source-being-compiled env)
    571575    (dolist (form forms) (fcomp-form form env processing-mode))))
    572576
Note: See TracChangeset for help on using the changeset viewer.