From abc1cf1007c7770b83d575adb4931ba05395e163 Mon Sep 17 00:00:00 2001 From: "Robert P. Goldman" <rpgoldman@real-time.com> Date: Tue, 23 Nov 2010 21:31:43 -0600 Subject: [PATCH] Remove the incorrectly-implemented :here directive. --- asdf.lisp | 13 ------------- 1 file changed, 13 deletions(-) diff --git a/asdf.lisp b/asdf.lisp index 56e8c611..c8ee9e08 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) -- GitLab