anchor.diff:  (defvar *foreign-extern-list* nil)
   (defvar *foreign-constant-list* nil)
   (defvar *foreign-raw-constant-list* nil)
  +(defvar *foreign-constant-excludes* nil)
   (defvar *foreign-other-exports-list* nil)
   (defvar *foreign-symbol-exceptions* nil)
   (defvar *foreign-symbol-regex* nil)
  
positive.code: (defun parse-enum-to-const (fields)
    (loop for field in fields
          as name = (aval :name field)
          as sym = (foreign-type-symbol name :cconst *package*)
          collect `(defconstant ,sym ,(aval :value field))
          do (pushnew sym *foreign-constant-list*)))
  
  (defmethod parse-form (form (tag (eql 'struct)) &key &allow-other-keys)
    (alist-bind (name fields) form
  
negative.code:         (accessor-package (find-package accessor-package))
          (constant-package (find-package constant-package))
          (extern-package (find-package extern-package))
          (constant-name-value-map (gensym "CONSTANT-NAME-VALUE-MAP-")))
      (multiple-value-bind (spec-name)
          (let ((*trace-c2ffi* trace-c2ffi))
            (ensure-local-spec h-file
  