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