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)~%")