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

Substituted (default-directory) for *default-pathname-defaults* per Fare.

parent 4747ad7e

asdf.lisp

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