Changeset 3247
- Timestamp:
- 06/02/08 16:52:34 (7 months ago)
- Files:
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
branches/bos-trunk-sat/projects/bos/web/sat-tree.lisp
r3225 r3247 21 21 (delete-node-extension top-level-node))) 22 22 23 (defun sat-layer-top-level-nodes (sat-layer) 23 (defun sat-layer-top-level-nodes (sat-layer) 24 (check-type sat-layer sat-layer) 24 25 (let ((nodes ()) 25 26 top-level-depth … … 55 56 56 57 (defmethod print-object ((obj sat-image) stream) 57 (print-unreadable-object (obj stream :type t :identity t))) 58 (print-unreadable-object (obj stream :type t :identity t) 59 (format stream "~s of layer ~s" (path obj) (name (layer obj))))) 58 60 59 61 (defun quad-tree-insert-sat-image (sat-image)
