Changeset 3428

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

just a tiny change

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved

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

    r3423 r3428  
    189189    (cerror "create the new layer anyway" "There is already a sat-layer with the same local-draw-order '~A'." local-draw-order)) 
    190190  (let ((layer (make-object 'sat-layer :name name :geo-box geo-box :local-draw-order local-draw-order))) 
    191     (make-sat-image-tiles-for-depth image geo-box layer start-depth))) 
     191    (make-sat-image-tiles-for-depth image geo-box layer start-depth) 
     192    layer)) 
    192193 
    193194;; (with-store-image (image (first (class-instances 'store-image)))