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

fixed some typos from last commit U trunk/projects/bos/m2/allocation-cache.lisp U trunk/projects/bos/m2/bos.m2.asd U trunk/projects/bos/m2/m2.lisp U trunk/projects/bos/m2/packages.lisp U trunk/projects/bos/web/contract-tree.lisp U trunk/projects/bos/web/quad-tree.lisp U trunk/projects/bos/web/sat-tree.lisp

Modified: trunk/projects/bos/m2/allocation-cache.lisp =================================================================== --- trunk/projects/bos/m2/allocation-cache.lisp 2008-07-21 15:25:37 UTC (rev 3538) +++ trunk/projects/bos/m2/allocation-cache.lisp 2008-07-21 15:38:26 UTC (rev 3539) @@ -260,8 +260,7 @@ (defmethod bknr.datastore::restore-subsystem (store (subsystem allocation-cache-subsystem) &key until) (declare (ignore until)) - (rebuild-cache) - (bos.m2::invoke-store-transient-init-functions)) + (rebuild-cache))

(defmethod bknr.datastore::snapshot-subsystem (store (subsystem allocation-cache-subsystem)) ) \ No newline at end of file

Modified: trunk/projects/bos/m2/bos.m2.asd =================================================================== --- trunk/projects/bos/m2/bos.m2.asd 2008-07-21 15:25:37 UTC (rev 3538) +++ trunk/projects/bos/m2/bos.m2.asd 2008-07-21 15:38:26 UTC (rev 3539) @@ -15,7 +15,8 @@ (:file "make-certificate" :depends-on ("config")) (:file "initialization-subsystem" :depends-on ("packages")) (:file "m2-store" :depends-on ("packages" "utils")) - (:file "m2" :depends-on ("tiled-index" + (:file "m2" :depends-on ("initialization-subsystem" + "tiled-index" "utils" "make-certificate" "mail-generator"

Modified: trunk/projects/bos/m2/m2.lisp =================================================================== --- trunk/projects/bos/m2/m2.lisp 2008-07-21 15:25:37 UTC (rev 3538) +++ trunk/projects/bos/m2/m2.lisp 2008-07-21 15:38:26 UTC (rev 3539) @@ -657,7 +657,7 @@ (check-type country symbol) `(invoke-with-countries (lambda (,country) ,@body)))

-(register-store-transient-init-function 'initialize-contract-stats) +(register-transient-init-function 'initialize-contract-stats)

(defun string-safe (string) (if string

Modified: trunk/projects/bos/m2/packages.lisp =================================================================== --- trunk/projects/bos/m2/packages.lisp 2008-07-21 15:25:37 UTC (rev 3538) +++ trunk/projects/bos/m2/packages.lisp 2008-07-21 15:38:26 UTC (rev 3539) @@ -78,7 +78,7 @@ (:shadowing-import-from :cl-interpol #:quote-meta-chars) (:export #:m2-store #:*m2-store* - #:register-store-transient-init-function + #:register-transient-init-function

#:get-tile #:ensure-tile

Modified: trunk/projects/bos/web/contract-tree.lisp =================================================================== --- trunk/projects/bos/web/contract-tree.lisp 2008-07-21 15:25:37 UTC (rev 3538) +++ trunk/projects/bos/web/contract-tree.lisp 2008-07-21 15:38:26 UTC (rev 3539) @@ -363,7 +363,7 @@ (list 0 0 +width+ +width+) #'contract-tree-changed))

-(register-store-transient-init-function 'make-contract-tree-from-m2 +(register-transient-init-function 'make-contract-tree-from-m2 'make-quad-tree 'geometry:make-rect-publisher)

Modified: trunk/projects/bos/web/quad-tree.lisp =================================================================== --- trunk/projects/bos/web/quad-tree.lisp 2008-07-21 15:25:37 UTC (rev 3538) +++ trunk/projects/bos/web/quad-tree.lisp 2008-07-21 15:38:26 UTC (rev 3539) @@ -409,5 +409,5 @@ (+ local-draw-order (* (depth node) +max-num-of-local-draw-order-levels+)))

-(register-store-transient-init-function 'make-quad-tree) +(register-transient-init-function 'make-quad-tree)

Modified: trunk/projects/bos/web/sat-tree.lisp =================================================================== --- trunk/projects/bos/web/sat-tree.lisp 2008-07-21 15:25:37 UTC (rev 3538) +++ trunk/projects/bos/web/sat-tree.lisp 2008-07-21 15:38:26 UTC (rev 3539) @@ -80,7 +80,7 @@ (defun quad-tree-insert-sat-images () (mapc #'quad-tree-insert-sat-image (class-instances 'sat-image)))

-(register-store-transient-init-function 'quad-tree-insert-sat-images +(register-transient-init-function 'quad-tree-insert-sat-images 'make-quad-tree)

(defmethod name ((obj sat-image))