diff --git a/bundle.lisp b/bundle.lisp index ffdf5320495bb34810f86cb563d3b1dd39fec0ce..b4b125dc6223c9fc8b1a516ed810ed86ec383acb 100644 --- a/bundle.lisp +++ b/bundle.lisp @@ -212,7 +212,10 @@ Compare with LIB-OP.")) (format nil "~A~@[~A~]" (component-name c) (slot-value o 'name-suffix)))) (type (bundle-pathname-type bundle-type))) (values (list (subpathname (component-pathname c) name :type type)) - (eq (type-of o) (component-build-operation c))))))) + (eq (type-of o) (coerce-class (component-build-operation c) + :package :asdf/interface + :super 'operation + :error nil))))))) (defmethod output-files ((o bundle-op) (c system)) (bundle-output-files o c))