Avoid dependency on ends-with which has been renamed away in recent asdf's

diff --git a/autodetect.lisp b/autodetect.lisp
index ce502df..d75127d 100644 (file)
--- a/autodetect.lisp
+++ b/autodetect.lisp
@@ -155,7 +155,7 @@
                    ;; strip Emacs-style EOL spec.
                    ;; TODO: find a way to integrate it in the external-format,
                    ;; on implementations that support it.
-                   (when (asdf:ends-with o "-unix") 
+                   (when (equal "unix" (second (asdf::split-string o :max 2 :separator "-")))
                      (setf o (subseq o 0 (- (length o) 5))))
                    (intern (string-upcase o) :keyword)))))
         (or (try "external-format") (try "encoding") (try "coding"))))))