Author: hhubner Date: 2006-11-20 15:55:39 -0500 (Mon, 20 Nov 2006) New Revision: 2082
Modified: trunk/projects/bos/m2/m2.lisp Log: Remove destroyed contracts from last-paid-contracts cache
Modified: trunk/projects/bos/m2/m2.lisp =================================================================== --- trunk/projects/bos/m2/m2.lisp 2006-11-20 15:19:07 UTC (rev 2081) +++ trunk/projects/bos/m2/m2.lisp 2006-11-20 20:55:39 UTC (rev 2082) @@ -337,7 +337,7 @@ #'> :key #'contract-date) (make-list +last-contracts-cache-size+)) 0 +last-contracts-cache-size+))) - *last-contracts-cache*) + (remove-if #'object-destroyed-p *last-contracts-cache*))
(defun add-contract-to-cache (contract) (last-paid-contracts) ; force cache initialization, should really be done by a eval-when