5a3902856597
More
| author | Steve Losh <steve@stevelosh.com> |
|---|---|
| date | Mon, 11 Nov 2019 20:46:32 -0500 |
| parents | 7834451ffb31 |
| children | fb6026dbfa7e 526cc3926998 |
| branches/tags | (none) |
| files | lisp/json-string.lisp |
Changes
--- a/lisp/json-string.lisp Mon Nov 11 20:45:45 2019 -0500 +++ b/lisp/json-string.lisp Mon Nov 11 20:46:32 2019 -0500 @@ -37,21 +37,6 @@ ("Turn 3 files into one big string:" . "cat foo bar baz | json-string"))) -(defparameter *option-debug* - (adopt:make-option 'debug - :help "Enable the lisp debugger." - :long "debug" - :short #\d - :reduce (constantly t))) - -(defparameter *option-no-debug* - (adopt:make-option 'no-debug - :result-key 'debug - :help "Disable the lisp debugger (the default)." - :long "no-debug" - :short #\D - :reduce (constantly nil))) - (defparameter *option-help* (adopt:make-option 'help :help "Display help and exit."