Ignore:
Timestamp:
Feb 17, 2008, 4:37:21 PM (13 years ago)
Author:
gz
Message:

checkpoint work in progress, mainly some final cleanup, reorg, don't try to track atoms, keep track of source through transforms; reporting implementation in library;cover.lisp

File:
1 edited

Legend:

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

    r8477 r8505  
    436436                                (format *error-output* "~&Read error between positions ~a and ~a in ~a." pos (file-position stream) filename)
    437437                                (signal c))))
     438                  (when *fcomp-source-note-map*
     439                    ;; Hack to keep from sharing inline function source notes...
     440                    (clrhash *fcomp-source-note-map*))
    438441                  (multiple-value-setq (form source-note)
    439442                    (read-recording-source stream
     
    833836  (when (consp expr)
    834837    (cond ((and (eq (%car expr) 'nfunction)
    835                 (symbolp (car (%cdr expr)))
    836                 (lambda-expression-p (car (%cddr expr))))
     838                (lambda-expression-p (cadr (%cdr expr))))
    837839           (fcomp-named-function (%caddr expr) (%cadr expr) env source-note))
    838840          ((and (eq (%car expr) 'function)
     
    883885                                                 :name name
    884886                                                 :env env
    885                                                  :source-note source-note
     887                                                 :function-note source-note
    886888                                                 :keep-lambda *fasl-save-definitions*
    887889                                                 :keep-symbols *fasl-save-local-symbols*
    888890                                                 :policy *default-file-compilation-policy*
    889                                                  :source-locations *fcomp-source-note-map*
     891                                                 :source-notes *fcomp-source-note-map*
    890892                                                 :load-time-eval-token cfasl-load-time-eval-sym
    891893                                                 :target *fasl-target*)
Note: See TracChangeset for help on using the changeset viewer.