[asdf-devel] [PATCH 2/2] Remove last place where CL-SOURCE-FILE was harcoded: use *DEFAULT-COMPONENT-CLASS* instead

Signed-off-by: Stelian Ionescu sionescu@cddr.org --- asdf.lisp | 2 +- 1 files changed, 1 insertions(+), 1 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp index 0b4ba6c..805e32b 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -2082,7 +2082,7 @@ details." (or class (and (eq type :file) (or (module-default-component-class parent) - (find-class 'cl-source-file))) + (find-class *default-component-class*))) (sysdef-error "~@<don't recognize component type ~A~@:>" type))))

(defun maybe-add-tree (tree op1 op2 c)