1.1--- a/lisp/bin/rdb.lisp	Tue Oct 01 21:52:17 2024 -0400
     1.2+++ b/lisp/bin/rdb.lisp	Tue Oct 01 22:29:08 2024 -0400
     1.3@@ -74,10 +74,10 @@
     1.4   :version "0.1.0"
     1.5   :thunk 'rdb-show
     1.6   :description "A simple helper for RocksDB."
     1.7-  :opts ((:name "level" :global t :description "set the log level" :thunk rdb-log-level)
     1.8-         (:name "help" :global t :description "print help" :thunk rdb-help)
     1.9-         (:name "version" :global t :description "print version" :thunk rdb-version)
    1.10-         (:name "db" :global t :description "target db" :thunk rdb-target-db :kind dir))
    1.11+  :opts ((:name "level" :description "set the log level" :thunk rdb-log-level)
    1.12+         (:name "help" :description "print help" :thunk rdb-help)
    1.13+         (:name "version" :description "print version" :thunk rdb-version)
    1.14+         (:name "db" :description "target db" :thunk rdb-target-db :kind dir))
    1.15   :cmds ((:name new
    1.16           :thunk rdb-new)
    1.17          (:name show
    1.18@@ -90,9 +90,8 @@
    1.19 (defmain start-rdb ()
    1.20   (let ((*log-level* :info))
    1.21     (with-cli (*rdb-cli* opts cmds args) ()
    1.22-      (do-opts (active-opts *cli* t))
    1.23       (if (active-cmds *cli*)
    1.24-          (let ((*rdb* (create-db (do-opt (car (find-opts *cli* "db"))))))
    1.25+          (rdb:with-db (*rdb* (create-db (do-opt (car (find-opts *cli* "db")))))
    1.26             (do-cmd *cli*)
    1.27-            (close-db *rdb*))
    1.28+              (close-db *rdb*))
    1.29           (print-help *cli*)))))