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

[bknr at bknr.net]

Author: hhubner
Date: 2006-11-16 10:05:14 -0500 (Thu, 16 Nov 2006)
New Revision: 2072

Modified:
   trunk/projects/bos/m2/m2.lisp
Log:
fix restore case


Modified: trunk/projects/bos/m2/m2.lisp
===================================================================
--- trunk/projects/bos/m2/m2.lisp	2006-11-16 15:01:23 UTC (rev 2071)
+++ trunk/projects/bos/m2/m2.lisp	2006-11-16 15:05:14 UTC (rev 2072)
@@ -339,6 +339,7 @@
   *last-contracts-cache*)
 
 (defun add-contract-to-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))