[bknr-cvs] ksprotte changed trunk/projects/bos/test/web/sat-tree.lisp

[BKNR Commits]

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

fixed test DELETE-SAT-LAYER-AND-SNAPSHOT

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

Modified: trunk/projects/bos/test/web/sat-tree.lisp
===================================================================
--- trunk/projects/bos/test/web/sat-tree.lisp	2008-07-14 08:38:03 UTC (rev 3426)
+++ trunk/projects/bos/test/web/sat-tree.lisp	2008-07-14 09:01:09 UTC (rev 3427)
@@ -6,7 +6,7 @@
     (cl-gd:with-image (image 1000 1000)
       (with-store-reopenings ()
         (bos.web::make-sat-layer image geo-box :test 0)
-        (progn
-          (bos.web::remove-sat-layer-from-quad-tree (find-store-object 1))
-          (delete-object (first (class-instances 'bos.web::sat-layer))))
+        (let ((sat-layer (first (class-instances 'bos.web::sat-layer))))
+          (bos.web::remove-sat-layer-from-quad-tree sat-layer)
+          (delete-object sat-layer))
         (pass)))))