From ff77079c9268661b4690cac58f2aa31e2d594fbe Mon Sep 17 00:00:00 2001
From: "Robert P. Goldman" <rpgoldman@gmail.com>
Date: Fri, 6 Dec 2013 18:39:39 -0600
Subject: [PATCH] Fix for https://bugs.launchpad.net/asdf/+bug/1254598

Repaired initargs for missing configuration inheritance form.
---
 uiop/configuration.lisp | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/uiop/configuration.lisp b/uiop/configuration.lisp
index ba770783..5e1b8788 100644
--- a/uiop/configuration.lisp
+++ b/uiop/configuration.lisp
@@ -128,8 +128,12 @@ this function tries to locate the Windows FOLDER for one of
           :finally
              (unless (= inherit 1)
                (report-invalid-form invalid-form-reporter
-                                    :arguments (list (compatfmt "~@<One and only one of ~S or ~S is required.~@:>")
-                                                     :inherit-configuration :ignore-inherited-configuration)))
+                                    :form form :location location
+                                    ;; we throw away the form and location arguments, hence the ~2*
+                                    ;; this is necessary because of the report in INVALID-CONFIGURATION
+                                    :format (compatfmt "~@<Invalid source registry ~S~@[ in ~S~]. ~
+                                                        One and only one of ~S or ~S is required.~@:>")
+                                    :arguments '(:inherit-configuration :ignore-inherited-configuration)))
              (return (nreverse x))))
 
   (defun validate-configuration-file (file validator &key description)
-- 
GitLab