Changeset 2335

Show
Ignore:
Timestamp:
01/17/08 17:30:34 (1 year ago)
Author:
ksprotte
Message:

stripped allocation-cache- prefix from some functions

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • branches/bos/projects/bos/m2/allocation-cache.lisp

    r2329 r2335  
    136136  (<= 1 n +threshold+)) 
    137137 
    138 (defun allocation-cache-find-exact-match (n &key remove) 
     138(defun find-exact-match (n &key remove) 
    139139  "Will return a free contigous region of size N 
    140140as a list of m2 instances. If no such region exactly 
    …… 
    148148    (t (index-lookup n)))) 
    149149 
    150 (defun allocation-cache-add-area (allocation-area) 
     150(defun add-area (allocation-area) 
    151151  (dolist (region (free-regions allocation-area) 
    152152           allocation-area) 
    …… 
    156156          (incf (ignored-size *allocation-cache*) size))))) 
    157157 
    158 (defun allocation-cache-free-regions-count () 
     158(defun free-regions-count () 
    159159  (iter 
    160160    (for regions in-vector (allocation-cache-index *allocation-cache*)) 
    161161    (summing (length regions)))) 
    162162 
    163 (defun allocation-cache-free-regions-pprint () 
     163(defun free-regions-pprint () 
    164164  (iter 
    165165    (for regions in-vector (allocation-cache-index *allocation-cache*)) 
    …… 
    174174  (dolist (allocation-area (class-instances 'allocation-area)) 
    175175    (when (allocation-area-active-p allocation-area) 
    176       (allocation-cache-add-area allocation-area)))) 
     176      (add-area allocation-area)))) 
    177177 
    178178(defun suggest-free-region-size () 

  • branches/bos/projects/bos/m2/allocation.lisp

    r2329 r2335  
    626626  (unless (in-transaction-p) 
    627627    (error "find-free-m2s called outside of the allocation transaction")) 
    628   (or (bos.m2.allocation-cache:allocation-cache-find-exact-match n :remove t)  
     628  (or (bos.m2.allocation-cache:find-exact-match n :remove t)  
    629629      (some (lambda (area) (allocation-area-find-free-m2s area n)) 
    630630            (active-allocation-areas)) 

  • branches/bos/projects/bos/m2/packages.lisp

    r2331 r2335  
    212212  (:export #:cert-daemon)) 
    213213 
     214;;; maybe there is a nicer way to do this 
     215;;; if you want to test this run ./build.sh at least twice ! 
     216(intern "POINT-IN-POLYGON-P" :bos.m2)  
    214217 
    215218(defpackage :bos.m2.allocation-cache