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

[BKNR Commits]

Revision: 4018
Author: hans
URL: http://bknr.net/trac/changeset/4018

Don't consider unpaid contracts in contract statistics.

U   trunk/projects/bos/m2/m2.lisp

Modified: trunk/projects/bos/m2/m2.lisp
===================================================================
--- trunk/projects/bos/m2/m2.lisp	2008-10-26 22:49:23 UTC (rev 4017)
+++ trunk/projects/bos/m2/m2.lisp	2008-10-26 23:02:29 UTC (rev 4018)
@@ -621,7 +621,7 @@
 
 (defun initialize-contract-stats ()
   (setq *contract-stats* (make-contract-stats))
-  (dolist (contract (class-instances 'contract))
+  (dolist (contract (remove-if-not #'contract-paidp (class-instances 'contract)))
     (add-to-contract-stats contract)))
 
 (defun add-to-contract-stats (contract)