Commit 39cc61ee authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Fix bundle-output-files with build-operation.

Bug reported on the mailing-list by Florian Margaine <florian@margaine.com>
parent 66f4a792
......@@ -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))
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment