anchor.diff:                                         (slot-name->proto key)
                                          key)
                                      val))
  -                    "optimize_for" "lisp_package"))
  +                    "optimize_for"))
            (imports  (if (listp import) import (list import)))
            (schema   (make-instance
                       'file-descriptor
  
positive.code:                     :name     name
                      :syntax   (or syntax "proto2")
                      :package  package
                      :lisp-package (cond ((and lisp-pkg (find-proto-package lisp-pkg))
                                           (package-name (find-proto-package lisp-pkg)))
                                          (lisp-pkg)
                                          (t (substitute #\- #\_ package)))
                      :imports  imports
                      :options  (if optimize
                                    (append options
  
negative.code:          (package  (and package (if (stringp package)
                                      package
                                      (string-downcase (string package)))))
           (options  (remove-options
                      (loop for (key val) on options by #'cddr
                            collect (make-option
  