22 lines
481 B
Common Lisp
22 lines
481 B
Common Lisp
;;;; cl-scopes/shape/space
|
|
;;;; definitions for (spatial) registering and retrieving objects by location
|
|
|
|
(defpackage :scopes/shape/space
|
|
(:use :common-lisp)
|
|
(:local-nicknames (:alx :alexandria))
|
|
(:export #:create #:put #:get #:query))
|
|
|
|
(in-package :scopes/shape/space)
|
|
|
|
(defun create ()
|
|
(make-hash-table :test #'equalp))
|
|
|
|
(defun put (space key value)
|
|
(setf (gethash key space) value))
|
|
|
|
(defun get (space key)
|
|
(gethash key space))
|
|
|
|
(defun query (space pattern)
|
|
nil)
|
|
|