Commit 5b839d75 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

1.103: play nice with asdf:coerce-name being exported.

parent 76f199ad
......@@ -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 ~
......
......@@ -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))))
......
......@@ -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.")
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment