[bknr-cvs] hans changed branches/anon-transaction-fixes-2/projects/bos/

[BKNR Commits]

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

Application fixes for BOS to make it work with the recent store updates.

U   branches/anon-transaction-fixes-2/projects/bos/m2/allocation.lisp
U   branches/anon-transaction-fixes-2/projects/bos/m2/poi.lisp
U   branches/anon-transaction-fixes-2/projects/bos/web/daily.lisp

Modified: branches/anon-transaction-fixes-2/projects/bos/m2/allocation.lisp
===================================================================
--- branches/anon-transaction-fixes-2/projects/bos/m2/allocation.lisp	2008-09-22 15:51:49 UTC (rev 3937)
+++ branches/anon-transaction-fixes-2/projects/bos/m2/allocation.lisp	2008-09-22 18:23:36 UTC (rev 3938)
@@ -127,7 +127,6 @@
                           :top top
                           :width width
                           :height height
-                          :y top
                           :active-p nil
                           :vertices vertices)))
       result)))

Modified: branches/anon-transaction-fixes-2/projects/bos/m2/poi.lisp
===================================================================
--- branches/anon-transaction-fixes-2/projects/bos/m2/poi.lisp	2008-09-22 15:51:49 UTC (rev 3937)
+++ branches/anon-transaction-fixes-2/projects/bos/m2/poi.lisp	2008-09-22 18:23:36 UTC (rev 3938)
@@ -50,7 +50,7 @@
   (assert (if (or title subtitle description) language t) nil
           "language needs to be specified, if any of title, subtitle
            or description is given")
-  (apply #'make-instance class-name rest))
+  (apply #'make-instance class-name (remove-keys '(:initargs) rest)))
 
 (defmethod initialize-instance :after ((poi-medium poi-medium) &key poi)
   (when poi

Modified: branches/anon-transaction-fixes-2/projects/bos/web/daily.lisp
===================================================================
--- branches/anon-transaction-fixes-2/projects/bos/web/daily.lisp	2008-09-22 15:51:49 UTC (rev 3937)
+++ branches/anon-transaction-fixes-2/projects/bos/web/daily.lisp	2008-09-22 18:23:36 UTC (rev 3938)
@@ -3,7 +3,6 @@
 (defun daily-cleanup ()
   (format t "; performing daily cleanup run~%")
   (bos.m2::delete-expired-contracts)
-  (bknr.stats::make-yesterdays-stats :delete-events t)
   (format t "; snapshotting datastore~%")
   (snapshot)
   (format t "; running check (consistent-p)~%")