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