File command-line-arguments.patch of Package pgloader

Overview Repositories Revisions Requests Users Attributes Meta

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)))

Places

File command-line-arguments.patch of Package pgloader

Places