Commit dcdc48a0 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

2.001: remove explicit reference to cl-source-file where we really mean

*default-component-class* (thanks to Stelian Ionescu).
parent 58f7b0d0
......@@ -70,7 +70,7 @@
:test 'equalp :key 'car))
(let* ((asdf-version
;; the 1+ helps the version bumping script discriminate
(subseq "VERSION:2.000" (1+ (length "VERSION"))))
(subseq "VERSION:2.001" (1+ (length "VERSION"))))
(existing-asdf (find-package :asdf))
(vername '#:*asdf-version*)
(versym (and existing-asdf
......@@ -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)
Supports Markdown
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