Update of /project/elephant/cvsroot/elephant In directory common-lisp.net:/tmp/cvs-serv30665 Modified Files: INSTALL Log Message: open/close-store Date: Sun Aug 29 09:52:34 2004 Author: blee Index: elephant/INSTALL diff -u elephant/INSTALL:1.2 elephant/INSTALL:1.3 --- elephant/INSTALL:1.2 Sun Aug 29 09:43:19 2004 +++ elephant/INSTALL Sun Aug 29 09:52:34 2004 @@ -101,10 +101,7 @@ CL-USER> (use-package "ELE") T -CL-USER> (setq *store-controller* (make-instance 'store-controller :path "/home/ben/testdb")) -#<STORE-CONTROLLER {489C1EDD}> - -CL-USER> (open-controller *store-controller*) +CL-USER> (open-store "/home/ben/testdb") #<STORE-CONTROLLER {489C1EDD}> CL-USER> (setq *auto-commit* T) @@ -121,7 +118,7 @@ NIL NIL -CL-USER> (close-controller *store-controller*) +CL-USER> (close-store) NIL CL-USER> (quit) @@ -145,14 +142,13 @@ CL-USER> (use-package "ELE") T -CL-USER> (setq *store-controller* (make-instance 'store-controller :path "/home/ben/testdb")) -#<STORE-CONTROLLER {4895EE5D}> - -CL-USER> (open-controller *store-controller*) -#<STORE-CONTROLLER {4895EE5D}> +CL-USER> (open-store "/home/ben/testdb") CL-USER> (get-from-root *store-controller* "my key") "my string" T + +CL-USER> (close-store) +NIL CL-USER>