[bknr-cvs] ksprotte changed trunk/projects/bos/m2/m2.lisp

[BKNR Commits]

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