[elephant-cvs] CVS update: elephant/INSTALL

[blee at common-lisp.net]

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>