File command-line-arguments.patch of Package pgloader
git -diff a/software/command-line-arguments-20191227-git/parse.lisp b/software/command-line-arguments-20191227-git/parse.lisp
--- a/software/command-line-arguments-20191227-git/parse.lisp 2020-03-22 22:32:09.000000000 +0100
+++ b/software/command-line-arguments-20191227-git/parse.lisp 2020-07-18 23:25:46.474558600 +0200
@@ -103,13 +103,13 @@
:test 'equal)))
(unless optional
(register-finalizer))
- #'(lambda (value)
+ (cons (intern (string-upcase name) :keyword) #'(lambda (value)
(when optional
(register-finalizer))
(case value
((nil) (set symbol nil))
((t) (error "Option ~A requires a parameter" (option-name name)))
- (otherwise (push value (symbol-value symbol))))))))))
+ (otherwise (push value (symbol-value symbol)))))))))))
(defun finalize-list (name symbol optional actual-action)
(let ((value (symbol-value symbol)))