Skip to content
Snippets Groups Projects
Commit 53a771dd authored by Francois-Rene Rideau's avatar Francois-Rene Rideau
Browse files

1.649: Remove spurious keyword in system-relative-pathname. Oops.

parent d966b77c
No related branches found
Tags 1.649
No related merge requests found
......@@ -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)))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment