Commit 7eca6d21 authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Fixed bugs in the :here directive that led to non-directory pathnames.

parent 3106691f
Loading
Loading
Loading
Loading
+1 −1
Original line number Diff line number Diff line
@@ -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)