From 39cc61eeeb6c62de1100bf25fcd6c909be3693e5 Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau Date: Sun, 27 Sep 2015 04:18:44 -0500 Subject: [PATCH] Fix bundle-output-files with build-operation. Bug reported on the mailing-list by Florian Margaine --- bundle.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/bundle.lisp b/bundle.lisp index ffdf5320..b4b125dc 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)) -- GitLab