Changeset 13193 for trunk/source/level-1


Ignore:
Timestamp:
Nov 12, 2009, 2:51:22 PM (10 years ago)
Author:
gz
Message:

Don't record source locations in compilations arising from explicit calls to EVAL (regardless of the setting of *save-source-locations* or *save-interactive-source-locations*)

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/source/level-1/l1-readloop.lisp

    r13079 r13193  
    684684    (and defenv (eq 'compile-file (car (defenv.type defenv))))))
    685685
     686;; This is EVAL.
    686687(defun cheap-eval (form)
    687   (cheap-eval-in-environment form nil))
     688  ;; Don't record source locations for explicit calls to EVAL.
     689  (let ((*nx-source-note-map* nil))
     690    (cheap-eval-in-environment form nil)))
    688691
    689692; used by nfcomp too
     
    816819                       (cheap-eval-in-environment protected-form env))
    817820                   (progn-in-env cleanup-forms env env)))
    818                (funcall (cheap-eval-function nil (cheap-eval-transform form `(lambda () (progn ,form))) env))))
     821               (let ((fn (cheap-eval-function nil (cheap-eval-transform form `(lambda () (progn ,form))) env)))
     822                 (funcall fn))))
    819823            ((and (symbolp sym) (macro-function sym env))
    820824             (cheap-eval-in-environment (cheap-eval-macroexpand-1 form env) env))
Note: See TracChangeset for help on using the changeset viewer.