From 7eca6d21b0c72908efd5836cf607af989db52631 Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@real-time.com>
Date: Sun, 21 Nov 2010 22:13:55 -0600
Subject: [PATCH] Fixed bugs in the :here directive that led to non-directory
 pathnames.

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

diff --git a/asdf.lisp b/asdf.lisp
index 5228fa5a..5737ced1 100644
--- a/asdf.lisp
+++ b/asdf.lisp
@@ -3526,7 +3526,7 @@ directive.")
        (destructuring-bind (pathname) rest
          (when pathname
              ;; interpret the rest as relative pathnames
-             (funcall register (resolve-location pathname :directory t)))))
+             (funcall register (resolve-location (ensure-directory-pathname (merge-pathnames* *here-directory* pathname)) :directory t)))))
       ((:exclude)
        (setf *source-registry-exclusions* rest))
       ((:also-exclude)
-- 
GitLab