Skip to content
Snippets Groups Projects
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
No related branches found
No related tags found
No related merge requests found
...@@ -2801,7 +2801,7 @@ directive.") ...@@ -2801,7 +2801,7 @@ directive.")
it it
;; this is used to give semantics to :here when used ;; this is used to give semantics to :here when used
;; interactively. ;; interactively.
*default-pathname-defaults*) (default-directory))
:directory t :wilden nil)) :directory t :wilden nil))
((eql :user-cache) (resolve-location *user-cache* :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)) ((eql :system-cache) (resolve-location *system-cache* :directory t :wilden nil))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment