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

Binding of *default-pathname-defaults* suggested by Fare.

parent eb1ed613
Loading
Loading
Loading
Loading
+8 −7
Original line number Diff line number Diff line
@@ -3544,13 +3544,14 @@ with a different configuration, so the configuration would be re-read then."
(defun* flatten-source-registry (&optional parameter)
  (remove-duplicates
   (while-collecting (collect)
     (let ((*default-pathname-defaults* (default-directory)))                
       (inherit-source-registry
        `(wrapping-source-registry
          ,parameter
          ,@*default-source-registries*)
        :register (lambda (directory &key recurse exclude)
                    (collect (list directory :recurse recurse :exclude exclude)))))
   :test 'equal :from-end t))
     :test 'equal :from-end t)))

;; Will read the configuration and initialize all internal variables,
;; and return the new configuration.