Author: ksprotte Date: Tue Jan 22 08:25:41 2008 New Revision: 2390

Modified: branches/bos/projects/bos/m2/allocation-cache.lisp Log: (defvar *allocation-cache* nil) !!

Modified: branches/bos/projects/bos/m2/allocation-cache.lisp ============================================================================== --- branches/bos/projects/bos/m2/allocation-cache.lisp (original) +++ branches/bos/projects/bos/m2/allocation-cache.lisp Tue Jan 22 08:25:41 2008 @@ -104,7 +104,7 @@ (in top (collect region)))))))

;;; allocation-cache -(defparameter *allocation-cache* nil) +(defvar *allocation-cache* nil)

(defconstant +threshold+ 200 "Free regions of size N where (<= 1 N +threshold+) are indexed.")