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

[ksprotte at common-lisp.net]

Author: ksprotte
Date: Mon Jan 21 11:36:19 2008
New Revision: 2380

Modified:
   branches/bos/projects/bos/m2/allocation-cache.lisp
   branches/bos/projects/bos/m2/allocation-test.lisp
   branches/bos/projects/bos/m2/packages.lisp
Log:
renamed allocation-cache functions


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	Mon Jan 21 11:36:19 2008
@@ -191,12 +191,12 @@
 					     :region region))
 	  (incf (ignored-size *allocation-cache*) size)))))
 
-(defun free-regions-count ()
+(defun count-cache-entries ()
   (iter
     (for regions in-vector (allocation-cache-index *allocation-cache*))
     (summing (length regions))))
 
-(defun free-regions-pprint ()
+(defun pprint-cache ()
   (iter
     (for regions in-vector (allocation-cache-index *allocation-cache*))
     (for size upfrom 1)

Modified: branches/bos/projects/bos/m2/allocation-test.lisp
==============================================================================
--- branches/bos/projects/bos/m2/allocation-test.lisp	(original)
+++ branches/bos/projects/bos/m2/allocation-test.lisp	Mon Jan 21 11:36:19 2008
@@ -25,7 +25,7 @@
       (bos.m2::activate-allocation-area area))
     (with-store-reopenings (area sponsor)
       (finishes (allocation-area-free-m2s area))
-      (is (= 1 (bos.m2.allocation-cache:free-regions-count)))      
+      (is (= 1 (bos.m2.allocation-cache:count-cache-entries)))      
       (is-true (bos.m2.allocation-cache:find-exact-match 10))
       (finishes (make-contract sponsor m2-count))
       (is (zerop (allocation-area-free-m2s area))))))

Modified: branches/bos/projects/bos/m2/packages.lisp
==============================================================================
--- branches/bos/projects/bos/m2/packages.lisp	(original)
+++ branches/bos/projects/bos/m2/packages.lisp	Mon Jan 21 11:36:19 2008
@@ -237,8 +237,8 @@
 	:arnesi)
   (:export #:find-exact-match
 	   #:add-area
-	   #:free-regions-count
-	   #:free-regions-pprint
+	   #:count-cache-entries
+	   #:pprint-cache
 	   #:rebuild-cache
 	   #:allocation-cache-subsystem))