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