From 01107b8c72964740f561419d8172014ff6830ff7 Mon Sep 17 00:00:00 2001
From: Francois-Rene Rideau <fare@tunes.org>
Date: Sat, 19 Jun 2010 17:46:40 -0400
Subject: [PATCH] 2.002: Better support LispWorks on Windows, and any
 implementation that doesn't automatically filter out "" from the directory
 components of a pathname.

---
 asdf.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/asdf.lisp b/asdf.lisp
index 5ae9aaa8..e647caaa 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -70,7 +70,7 @@
                 :test 'equalp :key 'car))
   (let* ((asdf-version
           ;; the 1+ helps the version bumping script discriminate
-          (subseq "VERSION:2.001" (1+ (length "VERSION"))))
+          (subseq "VERSION:2.002" (1+ (length "VERSION"))))
          (existing-asdf (find-package :asdf))
          (vername '#:*asdf-version*)
          (versym (and existing-asdf
@@ -614,9 +614,10 @@ pathnames."
                 (values :absolute (cdr components))
                 (values :relative nil))
           (values :relative components))
+      (setf components (remove "" components :test #'equal))
       (cond
         ((equal last-comp "")
-         (values relative (butlast components) nil))
+         (values relative components nil)) ; "" already removed
         (force-directory
          (values relative components nil))
         (t
-- 
GitLab