Commit f2101999 authored by Francois-Rene Rideau's avatar Francois-Rene Rideau

Make it work with ASDF 1.6 series.

parent 173de3d5
......@@ -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))))
Markdown is supported
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