How to fix arnesi:clean-op.

[TANIGUCHI Masaya]

I want to do "make clean" on ASDF.
I tried to use clean-op of ARNESI.

I got a following message,


WARNING:
    No dependency propagating scheme specified for operation class 
IT.BESE.ARNESI:CLEAN-OP.
The class needs to be updated for ASDF 3.1 and specify appropriate 
propagation mixins.

#<IT.BESE.ARNESI:CLEAN-OP >
#<ASDF/PLAN:SEQUENTIAL-PLAN {1003A65533}>

Definition of arnesi:clean-op is

(defclass clean-op (asdf:operation)
   ((for-op :accessor for-op :initarg :for-op :initform 'asdf:compile-op))
   (:documentation "Removes any files generated by an asdf component."))

(defmethod asdf:perform ((op clean-op) (c asdf:component))
   "Delete all the output files generated by the component C."
   (dolist (f (asdf:output-files (make-instance (for-op op)) c))
     (when (probe-file f)
       (delete-file f))))

(defmethod asdf:operation-done-p ((op clean-op) (c asdf:component))
   "Returns T when the output-files of (for-op OP) C don't exist."
   (dolist (f (asdf:output-files (make-instance (for-op op)) c))
     (when (probe-file f) (return-from asdf:operation-done-p nil)))
   t)


How to fix it?

Thanks.

ta2gch