diff --git a/asdf.lisp b/asdf.lisp index 56e8c61104f22595ac113bdb7ccb316e8ddeba02..c8ee9e089441d6ddaae076b506515ce20454f9ce 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -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)