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