optparse.lisp: Fix stupid paren-positioning blunders.

diff --git a/optparse.lisp b/optparse.lisp
index b41801724876e3f990130f4397b6052d14730ce1..159ee602778b84345cc4070f8f0046c1e526875a 100644 (file)
--- a/optparse.lisp
+++ b/optparse.lisp
@@ -114,7 +114,7 @@ (defstruct (option
   (short-name nil :type (or null character) :read-only t)
   (arg-name nil :type (or null string) :read-only t)
   (arg-optional-p nil :type t :read-only t)
   (short-name nil :type (or null character) :read-only t)
   (arg-name nil :type (or null string) :read-only t)
   (arg-optional-p nil :type t :read-only t)

-  (documentation nil :type (or null string)) :read-only t)
+  (documentation nil :type (or null string) :read-only t))

 
 (export '(option-parser option-parser-p make-option-parser
          op-options op-non-option op-long-only-p
 
 (export '(option-parser option-parser-p make-option-parser
          op-options op-non-option op-long-only-p


@@ -172,7 +172,7 @@ (defstruct (option-parser
   (long-only-p nil :type t :read-only t)
   (numeric-p nil :type t :read-only t)
   (negated-numeric-p nil :type t :read-only t)
   (long-only-p nil :type t :read-only t)
   (numeric-p nil :type t :read-only t)
   (negated-numeric-p nil :type t :read-only t)

-  (negated-p nil :type t) :read-only t)
+  (negated-p nil :type t :read-only t))

 
 (export 'option-parse-error)
 (define-condition option-parse-error (error simple-condition)
 
 (export 'option-parse-error)
 (define-condition option-parse-error (error simple-condition)