anchor.diff:      PROCESS-OP.")))
   
   (defmethod asdf:output-files ((op process-op) (c process-op-input))
  -  (declare (ignore op))
  +  (declare (ignorable op))
     (list (make-pathname :type (generated-lisp-file-type c)
                          :defaults (asdf:component-pathname c))))
   
  
positive.code:     ,@(call-next-method)))
  
  (defmethod asdf:component-depends-on ((op asdf:compile-op) (c process-op-input))
    (declare (ignore op))
    `((process-op ,(asdf:component-name c))
      ,@(call-next-method)))
  
  (defmethod asdf:component-depends-on ((op asdf:load-source-op) (c process-op-input))
    (declare (ignore op))
    `((process-op ,(asdf:component-name c))
      ,@(call-next-method)))
  
  
negative.code:   ((cc-flags :initform nil :accessor cc-flags-of :initarg :cc-flags)))
  
  (defmethod asdf:perform :around ((op asdf:compile-op) (file cc-flags-mixin))
    (declare (ignorable op))
    (let ((*cc-flags* (append (ensure-list (cc-flags-of file))
                              *cc-flags*)))
      (call-next-method)))
  