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

just a tiny change U trunk/projects/bos/web/sat-tree.lisp

Modified: trunk/projects/bos/web/sat-tree.lisp =================================================================== --- trunk/projects/bos/web/sat-tree.lisp 2008-07-14 09:01:09 UTC (rev 3427) +++ trunk/projects/bos/web/sat-tree.lisp 2008-07-14 09:05:11 UTC (rev 3428) @@ -188,7 +188,8 @@ (when (find local-draw-order (class-instances 'sat-layer) :key #'local-draw-order) (cerror "create the new layer anyway" "There is already a sat-layer with the same local-draw-order '~A'." local-draw-order)) (let ((layer (make-object 'sat-layer :name name :geo-box geo-box :local-draw-order local-draw-order))) - (make-sat-image-tiles-for-depth image geo-box layer start-depth))) + (make-sat-image-tiles-for-depth image geo-box layer start-depth) + layer))

;; (with-store-image (image (first (class-instances 'store-image))) ;; (make-sat-layer image