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

Fixes from Fare.

parent 09b9b8a4
Loading
Loading
Loading
Loading
+6 −8
Original line number Diff line number Diff line
@@ -2796,12 +2796,10 @@ directive.")
               (let ((p (make-pathname :directory '(:relative))))
                 (if wilden (wilden p) p))))
            ((eql :home) (user-homedir))
            ((eql :here) (resolve-location
                          (aif *here-directory*
                               it
                               ;; this is used to give semantics to :here when used
                               ;; interactively.
                               (default-directory))
            ((eql :here)
             (resolve-location (or *here-directory*
                                   ;; give semantics in the case of use interactively
                                   :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))
@@ -3490,7 +3488,7 @@ with a different configuration, so the configuration would be re-read then."
(defmethod process-source-registry ((pathname pathname) &key inherit register)
  (cond
    ((directory-pathname-p pathname)
     (let ((*here-directory* pathname))
     (let ((*here-directory* (truenamize pathname)))
       (process-source-registry (validate-source-registry-directory pathname)
                                :inherit inherit :register register)))
    ((probe-file pathname)