Commit 58593128 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

Fix bundle-output-files with build-operation.

Bug reported on the mailing-list by Florian Margaine <florian@margaine.com>
parent 66f4a792
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -212,7 +212,7 @@ 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))))))))

  (defmethod output-files ((o bundle-op) (c system))
    (bundle-output-files o c))