Revision: 3477 Author: ksprotte URL: http://bknr.net/trac/changeset/3477 renamed add-contract-to-cache -> add-to-last-contracts-cache U trunk/projects/bos/m2/m2.lisp Modified: trunk/projects/bos/m2/m2.lisp =================================================================== --- trunk/projects/bos/m2/m2.lisp 2008-07-17 07:45:32 UTC (rev 3476) +++ trunk/projects/bos/m2/m2.lisp 2008-07-17 09:02:14 UTC (rev 3477) @@ -295,7 +295,7 @@ (deftransaction contract-set-paidp (contract newval) (setf (contract-paidp contract) newval) (publish-contract-change contract) - (add-contract-to-cache contract) + (add-to-last-contracts-cache contract) (bknr.rss::add-item "news" contract)) (defmethod contract-price ((contract contract)) @@ -591,7 +591,7 @@ 0 +last-contracts-cache-size+))) (remove-if #'object-destroyed-p *last-contracts-cache*)) -(defun add-contract-to-cache (contract) +(defun add-to-last-contracts-cache (contract) (last-paid-contracts) ; force cache initialization, should really be done by a eval-when (push contract *last-contracts-cache*) (setf (cdr (nthcdr (1- +last-contracts-cache-size+) *last-contracts-cache*)) nil))