# HG changeset patch # User Steve Losh # Date 1573523192 18000 # Node ID 5a3902856597bf77121758b258738f54ac8c4afb # Parent 7834451ffb31087be93b2f63f609b952a57e9363 More diff -r 7834451ffb31 -r 5a3902856597 lisp/json-string.lisp --- 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."