Changeset 13343


Ignore:
Timestamp:
Dec 30, 2009, 8:02:46 AM (10 years ago)
Author:
gb
Message:

Don't inline self-calls in CHEAP-EVAL-IN-ENVIRONMENT, so that
TRACE/ADVISE have effect on those self-calls.

File:
1 edited

Legend:

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

    r13193 r13343  
    724724
    725725(defun cheap-eval-in-environment (form env &aux sym)
    726   (declare (resident))
     726  ;; Allow ADVICE, TRACE to have effects on self-calls.
     727  (declare (notinline cheap-eval-in-environment))
    727728  ;; records source locations if *nx-source-note-map* is bound by caller
    728729  (setq *loading-toplevel-location* (or (nx-source-note form) *loading-toplevel-location*))
     
    831832               (apply #'call-check-regs (if (symbolp sym) sym (cheap-eval-function nil sym env))
    832833                      (nreverse args))))
    833             (t (signal-simple-condition 'simple-program-error "Car of ~S is not a function name or lambda-expression." form))))))
     834            (t
     835             (signal-simple-condition 'simple-program-error "Car of ~S is not a function name or lambda-expression." form))))))
    834836
    835837
Note: See TracChangeset for help on using the changeset viewer.