Berkley DB Playground

Database functions 

(setf (symbol-function 'buf-writer)
      (make-cbuffer-writer #'cl-store:store))

(setf (symbol-function 'buf-reader)
      (make-cbuffer-reader #'cl-store:restore))

(setf (symbol-function 'db-put)
      (build-put-function #'buf-writer))

(setf (symbol-function 'db-get)
      (build-get-function #'buf-writer #'buf-reader))

(setf (symbol-function 'db-del)
      (build-del-function #'buf-writer))

(setf (symbol-function 'db-cursor-get)
      (build-cursor-get-function #'buf-writer #'buf-reader))

(setf (symbol-function 'db-cursor-put)
      (build-cursor-put-function #'buf-writer))

(setf (symbol-function 'create-assoc-callback)
      (build-assoc-callback-maker #'buf-writer #'buf-reader))

(setf (symbol-function 'create-assoc-lambda)
      (build-cbuffered-assoc-lambda #'buf-writer #'buf-reader))