collect (ext:argv i))))
(error "Unsupported Lisp."))))))
- *program-name* (pathname-name (car *command-line*))))
+ *program-name* (pathname-name (car *command-line*))))
;;;--------------------------------------------------------------------------
;;; Fancy conditionals.
(opt-long-name o)
(opt-arg-optional-p o)
(opt-arg-name o)
- (opt-documentation o)))))
+ (opt-%documentation o)))))
(:constructor %make-option
(&key long-name tag negated-tag short-name
arg-name arg-optional-p documentation