anchor.diff:      (:default-initargs
        :generated-lisp-file-type "processed-wrapper-file")
       (:documentation
  -      "This ASDF component represents an input file that is processed
  +     "This ASDF component represents an input file that is processed
         by PROCESS-WRAPPER-FILE. This generates a foreign library and
         matching CFFI bindings that are subsequently compiled and
         loaded.")))
  
positive.code:   (let ((output-file (asdf:output-file op c))
          (input-file  (asdf:component-pathname c)))
      (ensure-directories-exist (directory-namestring output-file))
      (let ((tmp-file    (process-wrapper-file input-file output-file (or (soname-of c)
                                                                          (asdf:component-name c)))))
        (unwind-protect
             (alexandria:copy-file tmp-file output-file :if-to-exists :supersede)
          (delete-file tmp-file)))))
  
negative.code: 
  (defmethod asdf:perform ((op process-op) (c grovel-file))
    (let ((output-file (asdf:output-file op c))
          (input-file (asdf:component-pathname c)))
      (ensure-directories-exist (directory-namestring output-file))
      (let ((tmp-file (process-grovel-file input-file (ensure-pathname output-file))))
        (unwind-protect
             (alexandria:copy-file tmp-file output-file :if-to-exists :supersede)
          (delete-file tmp-file)))))
  