anchor.diff:    ((open-options
       :initarg :open-options
       :accessor db-open-options)
  -   (write-options
  -    :initarg :write-options
  -    :accessor db-write-options)
      (read-options
       :initarg :read-options
       :accessor db-read-options)
  
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:                                     (prev iter)))))
                        :seek seek))
  
  (defun write (db batch &key sync)
    (let ((wb (leveldb-writebatch-create)))
      (unwind-protect
           (progn
  