/[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.34 by pw, Thu Mar 1 21:45:34 2001 UTC revision 1.35 by pw, Sun Mar 4 20:12:15 2001 UTC
# Line 136  Line 136 
136    "If an interpreted function goes uncalled for more than this many GCs, then    "If an interpreted function goes uncalled for more than this many GCs, then
137    it is eligible for flushing from the cache.")    it is eligible for flushing from the cache.")
138    
139  (proclaim '(type c::index  (declaim (type c::index
140                   *interpreted-function-cache-minimum-size*                 *interpreted-function-cache-minimum-size*
141                   *interpreted-function-cache-threshold*))                 *interpreted-function-cache-threshold*))
142    
143    
144  ;;; The list of INTERPRETED-FUNCTIONS that have translated definitions.  ;;; The list of INTERPRETED-FUNCTIONS that have translated definitions.
145  ;;;  ;;;
146  (defvar *interpreted-function-cache* nil)  (defvar *interpreted-function-cache* nil)
147  (proclaim '(type list *interpreted-function-cache*))  (declaim (type list *interpreted-function-cache*))
148    
149    
150  ;;; MAKE-INTERPRETED-FUNCTION  --  Interface  ;;; MAKE-INTERPRETED-FUNCTION  --  Interface

Legend:
Removed from v.1.34  
changed lines
  Added in v.1.35

  ViewVC Help
Powered by ViewVC 1.1.5