[bknr-cvs] r2082 - trunk/projects/bos/m2

[bknr at bknr.net]

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