Commit 01107b8c authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

2.002: Better support LispWorks on Windows, and

any implementation that doesn't automatically filter out "" from the
directory components of a pathname.
parent 7177edaf
......@@ -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
......
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