-`(multiple-value-bind (parsed-options remaining-args error) (opera:process-arguments ,options-in ,args)
- (cond
- ((opera:option-present :help parsed-options)
- (format t "~A" ,(if (eql usage :default) `(opera:usage ,cmd ,options-in) usage)))
- ((eql error :unknown-option)
- (error-and-exit "Unknown option: ~A. See '~A --help'.~%" (car remaining-args) ,cmd))
- ((eql error :required-argument-missing)
- (error-and-exit "Missing argument for ~A. See '~A --help'.~%" (car remaining-args) ,cmd))
- ((and ,remaining-args-required (not remaining-args))
- (error-and-exit "~A required. See 'candle --help'.~%" ,remaining-args-required))
- (t
- ,@success))))
+ `(multiple-value-bind (parsed-options remaining-args error) (opera:process-arguments ,options-in ,args)
+ (cond
+ ((opera:option-present :help parsed-options)
+ (format t "~A" ,(if (eql usage :default) `(opera:usage ,cmd ,options-in) usage)))
+ ((eql error :unknown-option)
+ (error-and-exit "Unknown option: ~A. See '~A --help'.~%" (car remaining-args) ,cmd))
+ ((eql error :required-argument-missing)
+ (error-and-exit "Missing argument for ~A. See '~A --help'.~%" (car remaining-args) ,cmd))
+ ((and ,remaining-args-required (not remaining-args))
+ (error-and-exit "~A required. See 'candle --help'.~%" ,remaining-args-required))
+ (t
+ ,@success))))