[bknr-cvs] r2390 - branches/bos/projects/bos/m2

[ksprotte at common-lisp.net]

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.")