Changeset 13362


Ignore:
Timestamp:
Jan 4, 2010, 4:41:55 PM (10 years ago)
Author:
gz
Message:

Merge r13343: make cheap-eval-in-environment advisable

Location:
branches/working-0711/ccl
Files:
2 edited

Legend:

Unmodified
Added
Removed
  • branches/working-0711/ccl

  • branches/working-0711/ccl/level-1/l1-readloop.lisp

    r13302 r13362  
    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.