anchor.diff:        (camelcase-to-dash-separated name)
         name))
   
  -(defun default-ffi-export-predicate (symbol)
  +(defun default-ffi-export-predicate (symbol &key &allow-other-keys)
     (declare (ignore symbol))
     nil)
   
  
positive.code:      (assert (member (first name) '(:struct :union :enum)))
       (valid-name-or-die (second name)))))
  
  (defun call-transformer-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."))))
  
negative.code:        (symbolp symbol)
         (not (keywordp symbol))
         *ffi-export-predicate*
         (call-hook *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-hook *ffi-type-transformer* cffi-type context)
          cffi-type)))
  
  ;;;;;;
  