anchor.diff:      (when handle
         (leveldb-close handle)
         (leveldb-readoptions-destroy (db-read-options db))
  -      (leveldb-writeoptions-destroy (db-write-options db))
         (leveldb-options-destroy (db-open-options db))
         (when (db-cache db)
           (leveldb-cache-destroy (db-cache db))
           (setf (db-cache db) nil))
         (setf (db-handle db) nil)
         (setf (db-read-options db) nil)
  -      (setf (db-write-options db) nil)
         (setf (db-open-options db) nil))))
   
  -(defun put (db key val)
  +(defun put (db key val &key sync)
     (with-octets-buffer (fkey key)
       (with-octets-buffer (fval val)
         (with-errptr (errptr)
  -        (leveldb-put (db-handle db) (db-write-options db)
  -                     fkey (length key)
  -                     fval (length val)
  -                     errptr)
  +        (with-write-options (options :sync sync)
  +          (leveldb-put (db-handle db) options
  +                       fkey (length key)
  +                       fval (length val)
  +                       errptr)
  +          (check-errptr errptr))))))
  +
  +(defun puts (db key val &key sync)
  +  (put db (string-to-octets key) (string-to-octets val) :sync sync))
  +
  +(defun delete (db key &key sync)
  +  (with-octets-buffer (fkey key)
  +    (with-errptr (errptr)
  +      (with-write-options (options :sync sync)
  +        (leveldb-delete (db-handle db) options
  +                        fkey (length key)
  +                        errptr)
           (check-errptr errptr)))))
   
  -(defun puts (db key val)
  -  (put db (string-to-octets key) (string-to-octets val)))
  -
  -(defun delete (db key)
  -  (with-octets-buffer (fkey key)
  -    (with-errptr (errptr)
  -      (leveldb-delete (db-handle db) (db-write-options db)
  -                      fkey (length key)
  -                      errptr)
  -      (check-errptr errptr))))
  -
  -(defun deletes (db key)
  -  (delete db (string-to-octets key)))
  +(defun deletes (db key &key sync)
  +  (delete db (string-to-octets key) :sync sync))
   
   (defun get (db key)
     (with-octets-buffer (fkey key)
  
positive.code:       (let ((s (foreign-string-to-lisp err)))
          (leveldb-free err)
          (error 'leveldb-error :message s)))))
  
  (defmacro with-octets-buffer ((var vector) &body forms)
    #+sbcl
  
negative.code: ;;          error-if-exists paranoid-checks compression env[default] info-log
  ;;          write-buffer-size max-open-files block-size block-restart-interval]
  ;; read-options [verify-checksums fill-cache snapshot]
  ;; snapshot [create release]
  ;; approximate-sizes
  ;; compact-range
  