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)