anchor.diff:        (let ((s (foreign-string-to-lisp err)))
           (leveldb-free err)
           (error 'leveldb-error :message s)))))
  +
  +(defmacro with-write-options ((var &key sync) &body forms)
  +  `(let ((,var (leveldb-writeoptions-create)))
  +     (unwind-protect
  +          (progn
  +            (leveldb-writeoptions-set-sync ,var ,sync)
  +            ,@forms)
  +       (leveldb-writeoptions-destroy ,var))))
   
   (defmacro with-octets-buffer ((var vector) &body forms)
     #+sbcl
  
positive.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]
  ;; write-options [sync]
  ;; snapshot [create release]
  ;; approximate-sizes
  ;; compact-range
  
negative.code: (defun open (name &key (if-does-not-exist :create)
                         (lru-cache-capacity nil))
    (let ((open-options (leveldb-options-create))
          (read-options (leveldb-readoptions-create))
          (cache nil)
          (name (native-namestring name)))
  