# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1542863660 18000
# Node ID 95aa057ce3a4a7fa505ce30cb79167f559c735fd
# Parent  9f211ca82604a2afcaf1f710b76d1166dd82ac3b
Everybody gets ONE

diff -r 9f211ca82604 -r 95aa057ce3a4 src/main.lisp
--- a/src/main.lisp	Thu Nov 22 00:12:26 2018 -0500
+++ b/src/main.lisp	Thu Nov 22 00:14:20 2018 -0500
@@ -51,7 +51,8 @@
   (print-unreadable-object (o stream :type t)
     (format stream "~A ~A/~A" (name% o) (short% o) (long% o))))
 
-(defun make-option (name documentation &key long short parameter initial-value reduce)
+(defun make-option (name documentation &key
+                    long short parameter initial-value reduce)
   (make-instance 'option
     :name name
     :documentation documentation