13 lines
258 B
Common Lisp
13 lines
258 B
Common Lisp
(in-package :coleslaw)
|
|
|
|
(defmethod find-index (id)
|
|
(gethash id (gethash :indices *storage*)))
|
|
|
|
(defmethod add-index (index id)
|
|
(setf (find-index id) index))
|
|
|
|
(defmethod remove-index (id)
|
|
(setf (find-index id) nil))
|
|
|
|
(defmethod render-index (index)
|
|
)
|