From eb1ed613fe2b1638c06861df4587bf4cb5193f7c Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@real-time.com>
Date: Wed, 24 Nov 2010 09:12:23 -0600
Subject: [PATCH] Substituted (default-directory) for
 *default-pathname-defaults* per Fare.

---
 asdf.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/asdf.lisp b/asdf.lisp
index f58676e6..a165650a 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -2801,7 +2801,7 @@ directive.")
                                it
                                ;; this is used to give semantics to :here when used
                                ;; interactively.
-                               *default-pathname-defaults*)
+                               (default-directory))
                           :directory t :wilden nil))
             ((eql :user-cache) (resolve-location *user-cache* :directory t :wilden nil))
             ((eql :system-cache) (resolve-location *system-cache* :directory t :wilden nil))
-- 
GitLab