Commit ff77079c authored by Robert P. Goldman's avatar Robert P. Goldman
Browse files

Fix for https://bugs.launchpad.net/asdf/+bug/1254598 

Repaired initargs for missing configuration inheritance form.
parent cb734321

uiop/configuration.lisp

+6 −2
Original line number Diff line number Diff line
@@ -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)