diff --git a/grovel.lisp b/grovel.lisp index 01d389d3deabdfdc5057e2ebc7faafe90f66495a..060dc8bd4d3c014032fc5bcfaa63da36d5f92eba 100644 --- a/grovel.lisp +++ b/grovel.lisp @@ -497,9 +497,8 @@ ;; Used by maybe-translated-component-name and output-component-file. - (defvar *asdf-has-sensible-component-names-p* - (ignore-errors (<= 1.367 (read-from-string asdf::*asdf-revision*)))) + (and (find-symbol "*ASDF-VERSION*" :asdf) t)) (defun strip/ (name) (subseq name (1+ (or (position #\/ name :from-end t) -1))))