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

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