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

Remove the incorrectly-implemented :here directive.

parent 2b4585e6
Loading
Loading
Loading
Loading
+0 −13
Original line number Diff line number Diff line
@@ -3356,12 +3356,6 @@ with a different configuration, so the configuration would be re-read then."
              ((:include :directory :tree)
               (and (length=n-p rest 1)
                    (location-designator-p (first rest))))
              ((:here)
               ;; additional pathname components in :here directives are
               ;; optional
               (or (and (length=n-p rest 1)
                        (location-designator-p (first rest)))
                   (length=n-p rest 0)))
              ((:exclude :also-exclude)
               (every #'stringp rest))
              (null rest))))
@@ -3528,13 +3522,6 @@ directive.")
         (when pathname
           (funcall register (resolve-location pathname :directory t)
                    :recurse t :exclude *source-registry-exclusions*))))
      ((:here)
       (destructuring-bind (&optional pathname) rest
         (if pathname
             ;; interpret the rest as relative pathnames
             (funcall register (resolve-location (ensure-directory-pathname (merge-pathnames* *here-directory* pathname)) :directory t))
             ;; else just the *here-directory*
             (funcall register (resolve-location (ensure-directory-pathname *here-directory*) :directory t)))))
      ((:exclude)
       (setf *source-registry-exclusions* rest))
      ((:also-exclude)