This were the last slot-name leaks. Yay!
store-property function
with-pset-iterator macro
store-property function
with-pset-iterator macro
-Leaked slot names: cl:type
- sod-initarg: cl:type
-
Classes:
cl:t
sb-pcl::slot-object
Classes:
cl:t
sb-pcl::slot-object
cl:string function class c-type opthandler
with-unix-error-reporting macro
cl:string function class c-type opthandler
with-unix-error-reporting macro
-Leaked slot names: cl:documentation, options
- option: cl:documentation
- option-parser: options
-
Classes:
cl:t
sb-pcl::slot-object
Classes:
cl:t
sb-pcl::slot-object
(location :initarg :location :initform (file-location nil)
:type file-location :reader file-location)
(name :initarg :name :type string :reader sod-initarg-name)
(location :initarg :location :initform (file-location nil)
:type file-location :reader file-location)
(name :initarg :name :type string :reader sod-initarg-name)
- (type :initarg :type :type c-type :reader sod-initarg-type))
+ (%type :initarg :type :type c-type :reader sod-initarg-type))
(:documentation
"Describes a keyword argument accepted by the initialization function."))
(:documentation
"Describes a keyword argument accepted by the initialization function."))
(opt-arg-optional-p o)
(opt-arg-name o)
(opt-documentation o)))))
(opt-arg-optional-p o)
(opt-arg-name o)
(opt-documentation o)))))
- (:constructor %make-option)
+ (:constructor %make-option
+ (&key long-name tag negated-tag short-name
+ arg-name arg-optional-p documentation
+ &aux (%documentation documentation)))
(:constructor make-option
(long-name short-name
&optional arg-name
&key (tag (intern (string-upcase long-name) :keyword))
negated-tag
arg-optional-p
(:constructor make-option
(long-name short-name
&optional arg-name
&key (tag (intern (string-upcase long-name) :keyword))
negated-tag
arg-optional-p
- doc (documentation doc))))
+ doc (documentation doc)
+ &aux (%documentation documentation))))
"Describes a command-line option. Slots:
LONG-NAME The option's long name. If this is null, the `option' is
"Describes a command-line option. Slots:
LONG-NAME The option's long name. If this is null, the `option' is
(short-name nil :type (or null character))
(arg-name nil :type (or null string))
(arg-optional-p nil :type t)
(short-name nil :type (or null character))
(arg-name nil :type (or null string))
(arg-optional-p nil :type t)
- (documentation nil :type (or null string)))
+ (%documentation nil :type (or null string)))
+(define-access-wrapper opt-documentation opt-%documentation)
(export '(option-parser option-parser-p make-option-parser
op-options op-non-option op-long-only-p op-numeric-p
(export '(option-parser option-parser-p make-option-parser
op-options op-non-option op-long-only-p op-numeric-p
negated-numeric-p
long-only-p
&aux (args (cons nil argstmp))
negated-numeric-p
long-only-p
&aux (args (cons nil argstmp))
(next args)
(negated-p (or negated-numeric-p
(some #'opt-negated-tag
(next args)
(negated-p (or negated-numeric-p
(some #'opt-negated-tag
still allowed, and may be cuddled as usual. The default is
nil."
(args nil :type list)
still allowed, and may be cuddled as usual. The default is
nil."
(args nil :type list)
- (options nil :type list)
+ (%options nil :type list)
(non-option :skip :type (or function (member :skip :stop :return)))
(next nil :type list)
(short-opt nil :type (or null string))
(non-option :skip :type (or function (member :skip :stop :return)))
(next nil :type list)
(short-opt nil :type (or null string))
(numeric-p nil :type t)
(negated-numeric-p nil :type t)
(negated-p nil :type t))
(numeric-p nil :type t)
(negated-numeric-p nil :type t)
(negated-p nil :type t))
+(define-access-wrapper op-options op-%options)
(export 'option-parse-error)
(define-condition option-parse-error (error simple-condition)
(export 'option-parse-error)
(define-condition option-parse-error (error simple-condition)