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."