Make it work with ASDF 1.6 series.

diff --git a/grovel.lisp b/grovel.lisp
index 01d389d..060dc8b 100644 (file)
--- 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))))