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

[BKNR Commits]

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