diff --git a/asdf-bundle.lisp b/asdf-bundle.lisp index 9594a6d780aeedfda08ff593aa5458e01790d5d7..440d7071ad131e9cf8b2d790fbcae76a2a197dc4 100644 --- a/asdf-bundle.lisp +++ b/asdf-bundle.lisp @@ -518,6 +518,14 @@ For the latter case, we ought pick random suffix and atomically open it." (declare (ignorable o)) (load (system-fasl s))) +(defmethod input-files ((o load-fasl-op) (s precompiled-system)) + (declare (ignorable o)) + (input-files (make-instance 'load-op) s)) + +(defmethod perform ((o load-fasl-op) (s precompiled-system)) + (declare (ignorable o)) + (perform (make-instance 'load-op) s)) + #| ;; Example use: (asdf:defsystem :precompiled-asdf-utils :class asdf::precompiled-system :fasl (asdf:apply-output-translations (asdf:system-relative-pathname :asdf-utils "asdf-utils.system.fasl"))) (asdf:load-system :precompiled-asdf-utils)