18 lines
384 B
Common Lisp
18 lines
384 B
Common Lisp
;;;; cl-scopes/space
|
|
|
|
;;;; definitions for spatial registering and retrieving objects by location
|
|
|
|
(defpackage :scopes/space
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:alx :alexandria))
|
|
(:export #:create #:put #:query))
|
|
|
|
(in-package :scopes/space)
|
|
|
|
(defclass index ()
|
|
((data :reader data :initform (make-hash-table :test #'equal))))
|
|
|
|
(defun create ()
|
|
(make-instance 'index))
|
|
|
|
|