https://github.com/kraison/cl-kyoto-cabinet.git
git clone 'https://github.com/kraison/cl-kyoto-cabinet.git'
(ql:quickload :cl-kyoto-cabinet)
(in-package :kyoto-cabinet) (defparameter db (make-instance 'kc-dbm)) (dbm-open db “/tmp/hello.kch” :create :write)
(dbm-put db “Ilya” “Sterin” :mode :keep) (dbm-get db “Ilya”) (dbm-remove db “Ilya”)
(dbm-put db 123 “456” :mode :keep) (dbm-get db 123) (dbm-remove db 123)
(defparameter iter (iter-open db)) (iter-first iter) (multiple-value-bind (key val) (iter-item iter) (list key val)) (iter-next iter)
(dbm-put db 123 (make-array 2 :initial-contents ‘(75 76) :element-type ’(unsigned-byte 8)) :mode :replace) (dbm-put db 123 (make-octet-vector 100 101) :mode :replace)
(multiple-value-bind (key val) (iter-item iter :key-type :integer) (list key val))