anchor.diff:      COMPILE-OP and LOAD-SOURCE-OP operations to the file generated by
       PROCESS-OP.")))
   
  -(defmethod asdf:output-files ((op process-op) (c process-op-input))
  -  (declare (ignorable op))
  -  (list (make-pathname :type (generated-lisp-file-type c)
  -                       :defaults (asdf:component-pathname c))))
  +(defmethod asdf:input-files ((op process-op) (c process-op-input))
  +  (list (asdf:component-pathname c)))
   
   (defmethod asdf:component-depends-on ((op process-op) (c process-op-input))
     `((asdf:prepare-op ,c)
  
positive.code: ;;;# ASDF component: GROVEL-FILE
  
  (eval-when (:compile-toplevel :load-toplevel :execute)
    (defclass asdf::iolib-grovel-file (process-op-input cc-flags-mixin)
      ()
      (:default-initargs
       :generated-lisp-file-type "processed-iolib-grovel-file")
      (:documentation
       "This ASDF component represents an input file that is processed
       by PROCESS-GROVEL-FILE.")))
  
  (defmethod asdf:perform ((op process-op) (c asdf::iolib-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)))))
  
negative.code:     ,@(call-next-method)))
  
  (defmethod asdf:perform ((op asdf:compile-op) (c process-op-input))
    (let ((generated-lisp-file (first (asdf:output-files (make-instance 'process-op) c))))
      (asdf:perform op (make-instance 'asdf:cl-source-file
                                      :name (asdf:component-name c)
                                      :parent (asdf:component-parent c)
                                      :pathname generated-lisp-file))))
  
  (defmethod asdf:perform ((op asdf:load-source-op) (c process-op-input))
    (let ((generated-lisp-file (first (asdf:output-files (make-instance 'process-op) c))))
      (asdf:perform op (make-instance 'asdf:cl-source-file
                                      :name (asdf:component-name c)
                                      :parent (asdf:component-parent c)
  