anchor.diff:    (check-type name string)
     (check-type kind ffi-name-kind)
     (when *ffi-name-transformer*
  -    (setf name (call-transformer-hook *ffi-name-transformer* name kind))
  +    (setf name (call-hook *ffi-name-transformer* name kind))
       (unless (or (and (symbolp name)
                        (not (null name)))
                   (stringp name))
  
positive.code:        (symbolp symbol)
         (not (keywordp symbol))
         *ffi-export-predicate*
         (funcall *ffi-export-predicate* symbol)))
  
  (defun json-type-to-cffi-type (json-entry &optional (context nil context?))
    (let ((cffi-type (%json-type-to-cffi-type json-entry)))
      (if context?
          (call-transformer-hook *ffi-type-transformer* cffi-type context)
          cffi-type)))
  
  ;;;;;;
  
negative.code:       (camelcase-to-dash-separated name)
        name))
  
  (defun default-ffi-export-predicate (symbol &key &allow-other-keys)
    (declare (ignore symbol))
    nil)
  
  