[bknr-cvs] ksprotte changed trunk/projects/bos/

[BKNR Commits]

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