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