95aa057ce3a4

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