From 53a771dd06e704d995031a83476a3f39be5740da Mon Sep 17 00:00:00 2001 From: Francois-Rene Rideau <fare@tunes.org> Date: Wed, 17 Mar 2010 15:55:42 -0400 Subject: [PATCH] 1.649: Remove spurious keyword in system-relative-pathname. Oops. --- asdf.lisp | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/asdf.lisp b/asdf.lisp index 98d8e807..d3d23041 100644 --- a/asdf.lisp +++ b/asdf.lisp @@ -251,7 +251,7 @@ ;; This parameter isn't actually user-visible ;; -- please use the exported function ASDF:ASDF-VERSION below. ;; the 1+ hair is to ensure that we don't do an inadvertent find and replace - (subseq "VERSION:1.648" (1+ (length "VERSION")))) + (subseq "VERSION:1.649" (1+ (length "VERSION")))) (defun asdf-version () "Exported interface to the version of ASDF currently installed. A string. @@ -2066,9 +2066,7 @@ output to `*verbose-out*`. Returns the shell's exit code." (defun system-relative-pathname (system name &key type) (merge-pathnames* - (merge-component-name-type - :name name - :type type) + (merge-component-name-type name :type type) (system-source-directory system))) -- GitLab