File: package.lisp

package info (click to toggle)
cl-spatial-trees 0.2-4
  • links: PTS
  • area: main
  • in suites: jessie, jessie-kfreebsd
  • size: 148 kB
  • ctags: 117
  • sloc: lisp: 1,197; makefile: 30
file content (28 lines) | stat: -rw-r--r-- 938 bytes parent folder | download | duplicates (4)
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"))