anchor.diff:       (assert (member (first name) '(:struct :union :enum)))
        (valid-name-or-die (second name)))))
   
  -(defun call-transformer-hook (hook &rest args)
  +(defun call-hook (hook &rest args)
     (apply hook
            ;; indiscriminately add one keyword arg entry to warn
            (append args '(just-a-warning "Make sure your transformer hook has &key &allow-other-keys for future extendability."))))
  
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)
  
  