5a3902856597

More
[view raw] [browse files]
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."