1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
|
(cl:defpackage "SPATIAL-TREES"
(:use "CL")
(:shadow "DELETE" "SEARCH")
(:export "DELETE" "INSERT" "SEARCH"
"MAKE-SPATIAL-TREE"))
(cl:defpackage "SPATIAL-TREES-PROTOCOL"
(:use "CL" "SPATIAL-TREES")
(:shadowing-import-from "SPATIAL-TREES" "DELETE" "SEARCH")
(:export
;; interface definitions
"DELETE" "INSERT" "SEARCH"
;; protocol functions
"CHOOSE-LEAF" "SPLIT-NODE" "CHILDREN" "RECORDS" "ROOT-NODE"
;; protocol classes
"SPATIAL-TREE" "SPATIAL-TREE-NODE" "SPATIAL-TREE-LEAF-NODE"
))
(cl:defpackage "RECTANGLES"
(:use "CL")
(:shadow "INTERSECTION")
(:export "RECTANGLE" "MAKE-RECTANGLE" "INTERSECTION" "INTERSECTP"
"AREA" "MINIMUM-BOUND" "LOWS" "HIGHS"))
(cl:defpackage "SPATIAL-TREES-IMPL"
(:use "CL" "SPATIAL-TREES" "SPATIAL-TREES-PROTOCOL" "RECTANGLES")
(:shadowing-import-from "SPATIAL-TREES" "DELETE" "SEARCH")
(:shadowing-import-from "RECTANGLES" "INTERSECTION"))
|
