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