1.1--- a/lisp/bin/rdb.lisp	Sun Jul 28 21:47:57 2024 -0400
     1.2+++ b/lisp/bin/rdb.lisp	Mon Jul 29 20:55:09 2024 -0400
     1.3@@ -2,7 +2,7 @@
     1.4 
     1.5 ;;; Code:
     1.6 (uiop:define-package :bin/rdb
     1.7-    (:use :cl :rdb :std :cli/clap :log :clap)
     1.8+  (:use :cl :rdb :std :cli/clap :log :clap)
     1.9   (:export :main))
    1.10 
    1.11 (in-package :bin/rdb)
    1.12@@ -64,28 +64,26 @@
    1.13         (let ((seed (random 32)))
    1.14           (dotimes (ii seed)
    1.15             (setf (aref val ii) (random 256))))
    1.16-          (nreversef val)
    1.17-          (put-key db
    1.18-                   (sb-ext:string-to-octets (string (gensym "foo")))
    1.19-                   val)))))
    1.20+        (nreversef val)
    1.21+        (put-key db
    1.22+                 (sb-ext:string-to-octets (string (gensym "foo")))
    1.23+                 val)))))
    1.24 
    1.25 (define-cli *cli*
    1.26   :name "rdb"
    1.27   :version "0.1.0"
    1.28   :thunk rdb-show
    1.29   :description "A simple helper for RocksDB."
    1.30-  :opts (make-opts
    1.31-          (:name "level" :global t :description "set the log level" :thunk rdb-log-level)
    1.32-          (:name "help" :global t :description "print help" :thunk rdb-help)
    1.33-          (:name "version" :global t :description "print version" :thunk rdb-version)
    1.34-          (:name "db" :global t :description "target db" :thunk rdb-target-db :kind dir))
    1.35-  :cmds (make-cmds
    1.36-          (:name new :thunk rdb-new)
    1.37-          (:name show :thunk rdb-show)
    1.38-          (:name set :thunk rdb-set)
    1.39-          (:name get :thunk rdb-get)
    1.40-          (:name fuzz :thunk rdb-fuzz)
    1.41-          (:name destroy :thunk rdb-destroy)))
    1.42+  :opts ((:name "level" :global t :description "set the log level" :thunk rdb-log-level)
    1.43+         (:name "help" :global t :description "print help" :thunk rdb-help)
    1.44+         (:name "version" :global t :description "print version" :thunk rdb-version)
    1.45+         (:name "db" :global t :description "target db" :thunk rdb-target-db :kind dir))
    1.46+  :cmds ((:name new :thunk rdb-new)
    1.47+         (:name show :thunk rdb-show)
    1.48+         (:name set :thunk rdb-set)
    1.49+         (:name get :thunk rdb-get)
    1.50+         (:name fuzz :thunk rdb-fuzz)
    1.51+         (:name destroy :thunk rdb-destroy)))
    1.52 
    1.53 (defmain ()
    1.54   (let ((*log-level* :info))