Loading src/inferred-component-system.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -64,13 +64,13 @@ module.")) (defmethod inferred-components-module-class ((system inferred-components-parent-component)) 'inferred-components-module) (defmethod asdf::generic-class-for-type ((parent inferred-components-system) type) (defmethod asdf::class-for-type ((parent inferred-components-system) type) "Tell ASDF which module class to use." (if (eql type :module) (inferred-components-module-class parent) (call-next-method))) (defmethod asdf::generic-class-for-type ((parent inferred-components-module) type) (defmethod asdf::class-for-type ((parent inferred-components-module) type) "Tell ASDF which module class to use." (if (eql type :module) (class-of parent) Loading Loading
src/inferred-component-system.lisp +2 −2 Original line number Diff line number Diff line Loading @@ -64,13 +64,13 @@ module.")) (defmethod inferred-components-module-class ((system inferred-components-parent-component)) 'inferred-components-module) (defmethod asdf::generic-class-for-type ((parent inferred-components-system) type) (defmethod asdf::class-for-type ((parent inferred-components-system) type) "Tell ASDF which module class to use." (if (eql type :module) (inferred-components-module-class parent) (call-next-method))) (defmethod asdf::generic-class-for-type ((parent inferred-components-module) type) (defmethod asdf::class-for-type ((parent inferred-components-module) type) "Tell ASDF which module class to use." (if (eql type :module) (class-of parent) Loading