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

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)