1 #| 2 cl-demo 3 4 > (cl-demo:main) 5 |# 6 7 (defpackage #:cl-demo 8 (:use #:cl) 9 (:local-nicknames 10 (#:rdb #:cl-rocksdb) 11 (#:v #:org.shirakumo.verbose) 12 (#:bt #:bordeaux-threads) 13 (#:cli #:clingon)) 14 ;; db.lisp 15 (:export 16 ;; #:make-db 17 ;; #:with-db 18 ;; #:db 19 ) 20 ;; demo.lisp 21 (:export 22 #:main 23 #:demo-path 24 #:db-path 25 #:cli-opts 26 #:cli-handler 27 #:cli-cmd) 28 ;; ui.lisp 29 (:export 30 #:on-new-window 31 #:start-ui) 32 ;; tk.lisp 33 (:export 34 #:random-id 35 #:scan-dir))