convenience

diff --git a/scratch.lisp b/scratch.lisp
index 0b93a7e4284049728f08e02a0fe13d6f560c39a5..136799df5f2f22b443d6429fb6a35363c21c3915 100644 (file)
--- a/scratch.lisp
+++ b/scratch.lisp
@@ -1,4 +1,5 @@
-
+(setf *e* (empire::connect :user "1" :password "1"))
+(empire::quit *e*)
 
 ;; http://localhost:4242/eow/