Changeset 3427

Show
Ignore:
Timestamp:
07/14/08 11:01:09 (6 months ago)
Author:
ksprotte
Message:

fixed test DELETE-SAT-LAYER-AND-SNAPSHOT

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3423 r3427  
    77      (with-store-reopenings () 
    88        (bos.web::make-sat-layer image geo-box :test 0) 
    9         (progn 
    10           (bos.web::remove-sat-layer-from-quad-tree (find-store-object 1)) 
    11           (delete-object (first (class-instances 'bos.web::sat-layer)))) 
     9        (let ((sat-layer (first (class-instances 'bos.web::sat-layer)))) 
     10          (bos.web::remove-sat-layer-from-quad-tree sat-layer) 
     11          (delete-object sat-layer)) 
    1212        (pass)))))