From f210199903142f675cbb22d95bd0f5de381ddccb Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Thu, 18 Feb 2010 13:36:15 -0500
Subject: [PATCH] Make it work with ASDF 1.6 series.

---
 grovel.lisp | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

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