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