diff --git a/asdf-ops.lisp b/asdf-ops.lisp index 97e9db06816bc9522f97a980ff04a46ae0e3bef0..27a4d11ab57f921f564dc312c17817bb4bd7d37c 100644 --- a/asdf-ops.lisp +++ b/asdf-ops.lisp @@ -174,8 +174,8 @@ to the base of the system." compspec system) (apply #'reinitialize-instance component args)))) (loop :for (system compspec . initargs) in additional-initargs :do - (assert (member (asdf::coerce-name system) systems - :key #'asdf::coerce-name + (assert (member (coerce-name system) systems + :key #'coerce-name :test #'equal) () "Component translation in System ~A which is not a member of the ~ diff --git a/grovel.lisp b/grovel.lisp index 6dca515e261a313f249a3fc71c9020b42a89a205..5a4474e3c54a20d3d9e7992c8e7016e9de00c786 100644 --- a/grovel.lisp +++ b/grovel.lisp @@ -567,7 +567,7 @@ (enough-component-spec component))) ;; Used only by maybe-translated-component-class. -(defun coerce-name (maybe-class) +(defun coerce-class-name (maybe-class) (if (typep maybe-class 'standard-class) (class-name maybe-class) maybe-class)) @@ -583,7 +583,7 @@ :file) ((and (eql (class-of component) (find-class (or - (coerce-name + (coerce-class-name (asdf::module-default-component-class (asdf:component-parent component))) 'asdf:cl-source-file)))) diff --git a/package.lisp b/package.lisp index e0f936e4e5a7aa0d5aad2d5417f9668a17089e05..a697623fe3a9d417b8608a204f446595faf009dc 100644 --- a/package.lisp +++ b/package.lisp @@ -31,8 +31,8 @@ (in-package #:asdf-dependency-grovel) -(defparameter *asdf-dependency-grovel-version* "1.102") -(defparameter *asdf-version-required-by-adg* "2.000") +(defparameter *asdf-dependency-grovel-version* "1.103") +(defparameter *asdf-version-required-by-adg* "2.008") #-asdf2 (error "ASDF-DEPENDENCY-GROVEL requires ASDF2.")