Update of /project/elephant/cvsroot/elephant/src In directory common-lisp.net:/tmp/cvs-serv30603/src
Modified Files: controller.lisp Log Message: missing generic warnings, open/close-store
Date: Sun Aug 29 09:48:34 2004 Author: blee
Index: elephant/src/controller.lisp diff -u elephant/src/controller.lisp:1.4 elephant/src/controller.lisp:1.5 --- elephant/src/controller.lisp:1.4 Sat Aug 28 08:39:56 2004 +++ elephant/src/controller.lisp Sun Aug 29 09:48:34 2004 @@ -53,6 +53,15 @@ creation, counters, locks, the root and garbage collection, et cetera."))
+(defgeneric add-to-root (sc key value)) +(defgeneric get-from-root (sc key)) +(defgeneric remove-from-root (sc key)) +(defgeneric cache-instance (sc obj)) +(defgeneric get-cached-instance (sc oid class-name)) +(defgeneric next-oid (sc)) +(defgeneric open-controller (sc &key recover recover-fatal thread)) +(defgeneric close-controller (sc)) + (defmethod add-to-root ((sc store-controller) key value) "Add an arbitrary persistent thing to the root, so you can retrieve it in a later session. Keys may be arbitrary @@ -154,3 +163,9 @@ ,@body) (close-controller ,sc)))
+(defun open-store (path) + (setq *store-controller* (make-instance 'store-controller :path path)) + (open-controller *store-controller*)) + +(defun close-store () + (close-controller *store-controller*)) \ No newline at end of file