Changeset 3421

Show
Ignore:
Timestamp:
07/10/08 15:37:33 (4 months ago)
Author:
ksprotte
Message:

fixed a problem with sat-layer destroy-object, where snapshot would fail afterwards

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

  • trunk/projects/bos

    • Property svn:ignore changed from
      datastore
      web.rc
      m2.rc
      TAGS
      bos.core
      screenrc
       to
      datastore
      web.rc
      m2.rc
      TAGS
      bos.core
      screenrc
      hunchentoot-access.log
      hunchentoot-error.log

  • trunk/projects/bos/test/bos.test.asd

    r3277 r3421  
    1515                        :components 
    1616                        ((:file "drakma-requests") 
    17                          (:file "quad-tree"))))) 
     17                         (:file "quad-tree") 
     18                         (:file "sat-tree"))))) 

  • trunk/projects/bos/web/sat-tree.lisp

    r3294 r3421  
    1919 
    2020(defmethod destroy-object :before ((obj sat-layer)) 
    21   (dolist (top-level-node (sat-layer-top-level-nodes obj)) 
    22     (delete-node-extension top-level-node))) 
     21  ;; (dolist (top-level-node (sat-layer-top-level-nodes obj)) 
     22  ;;     (delete-node-extension top-level-node)) 
     23  (dolist (sat-image (class-instances 'sat-image)) 
     24    (delete-object sat-image))) 
    2325 
    2426(defun sat-layer-top-level-nodes (sat-layer)