Revision: 3480 Author: ksprotte URL: http://bknr.net/trac/changeset/3480

oops, there was a bug in add-to-contract-stats

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

Modified: trunk/projects/bos/m2/m2.lisp =================================================================== --- trunk/projects/bos/m2/m2.lisp 2008-07-17 11:42:34 UTC (rev 3479) +++ trunk/projects/bos/m2/m2.lisp 2008-07-17 12:06:29 UTC (rev 3480) @@ -612,7 +612,9 @@ (when new-sponsor-p (incf paying-sponsors)) ;; country-sponsors - (let ((country-stat (gethash country country-sponsors (make-country-stat)))) + (let ((country-stat (gethash country country-sponsors))) + (unless country-stat + (setq country-stat (setf (gethash country country-sponsors) (make-country-stat)))) (when new-sponsor-p (incf (country-stat-paying-sponsors country-stat))) (incf (country-stat-sold-m2s country-stat) area))