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