anchor.diff:  ;;   (einc :pointer)
   ;;   (max :int))
   
  -;; (cffi:defcfun ("tcbdbrange2" tcbdbrange2) :pointer
  +;; (defcfun ("tcbdbrange2" tcbdbrange2) :pointer
   ;;   (bdb :pointer)
   ;;   (bkstr :string)
   ;;   (binc :pointer)
  
positive.code: 
  (in-package :tokyo-cabinet-ffi)
  
  (cffi:define-foreign-library libtc
    (t (:default "libtokyocabinet")))
  
  (cffi:use-foreign-library libtc)
  
  (defconstant +tcesuccess+ 0)
  (defconstant +tcethread+ 1)
  
negative.code:   :tcbs
    (:defaults #xff))
  
  (defcfun ("tcbdberrmsg" tcbdberrmsg) :string
    (ecode :int))
  
  (defcfun ("tcbdbnew" tcbdbnew) :pointer)
  
  (defcfun ("tcbdbdel" tcbdbdel) :void
    (bdb :pointer))
  
  (defcfun ("tcbdbecode" tcbdbecode) :int
    (bdb :pointer))
  
  ;; (defcfun ("tcbdbsetmutex" tcbdbsetmutex) :pointer
  ;;   (bdb :pointer))
  
  (defcfun ("tcbdbsetcmpfunc" tcbdbsetcmpfunc) :boolean
    (bdb :pointer)
    (cmp :pointer)
    (cmpop :pointer))
  
  (defcfun ("tcbdbtune" tcbdbtune) :boolean
    (bdb :pointer)
    (lmemb :int32)
    (nmemb :int32)
  