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

[Stelian Ionescu]

Signed-off-by: Stelian Ionescu <sionescu at 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)
-- 
1.7.1