/usr/share/common-lisp/source/spatial-trees/package.lisp is in cl-spatial-trees 0.2-6.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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"))
|