;;;; 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))