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:   (check-type name string)
    (check-type kind ffi-name-kind)
    (when *ffi-name-transformer*
      (setf name (call-hook *ffi-name-transformer* name kind))
      (unless (or (and (symbolp name)
                       (not (null name)))
                  (stringp name))
  