
22 Jan
2008
22 Jan
'08
1:25 p.m.
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.")