/[cmucl]/src/compiler/eval.lisp
ViewVC logotype

Diff of /src/compiler/eval.lisp

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.16 by ram, Wed Feb 20 14:57:25 1991 UTC revision 1.17 by ram, Tue Apr 9 14:40:43 1991 UTC
# Line 24  Line 24 
24  (export '(internal-eval *eval-stack-trace* *internal-apply-node-trace*  (export '(internal-eval *eval-stack-trace* *internal-apply-node-trace*
25                          *interpreted-function-cache-minimum-size*                          *interpreted-function-cache-minimum-size*
26                          *interpreted-function-cache-threshold*                          *interpreted-function-cache-threshold*
27                            flush-interpreted-function-cache
28                          trace-eval interpreted-function-p                          trace-eval interpreted-function-p
29                          interpreted-function-lambda-expression                          interpreted-function-lambda-expression
30                          interpreted-function-closure                          interpreted-function-closure
# Line 341  Line 342 
342  (pushnew 'interpreter-gc-hook ext:*before-gc-hooks*)  (pushnew 'interpreter-gc-hook ext:*before-gc-hooks*)
343    
344    
345    ;;; FLUSH-INTERPRETED-FUNCTION-CACHE  --  Interface
346    ;;;
347    (defun flush-interpreted-function-cache ()
348      "Clear all entries in the eval function cache.  This allows the internal
349      representation of the functions to be reclaimed, and also lazily forces
350      macroexpansions to be recomputed."
351      (dolist (fun *interpreted-function-cache*)
352        (setf (eval-function-definition fun) nil))
353      (setq *interpreted-function-cache* ()))
354    
355    
356  ;;;; INTERNAL-APPLY-LOOP macros.  ;;;; INTERNAL-APPLY-LOOP macros.
357    

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

  ViewVC Help
Powered by ViewVC 1.1.5