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: (defvar *protobuf* nil
    "The current proto-schema, proto-message, or group object we're compiling.")
  
  (defun define-schema (type &key name syntax package lisp-package import
                             optimize options documentation)
    "Define a schema named TYPE, corresponding to a .proto file of that name.
     NAME can be used to override the defaultly generated Protobufs name.
     SYNTAX and PACKAGE are as they would be in a .proto file.
     LISP-PACKAGE can be used to specify a Lisp package if it is different from
     the Protobufs package given by 'package'.
     IMPORT is a list of pathname strings to be imported.
     OPTIMIZE can be either :space (the default) or :speed; if it is :speed, the
     serialization code will be much faster, but much less compact.
  
negative.code:                     :name     name
                      :syntax   (or syntax "proto2")
                      :package  package
                      :imports  imports
                      :options  (if optimize
                                    (append options
  