Avoid preserving old definitions of json-value. Could cause me to find out real quick

1 files changed, 12 insertions, 12 deletions

diff --git a/load.lisp b/load.lisp
index 80fef99..c8c1194 100644
--- a/load.lisp
+++ b/load.lisp
@@ -75,7 +75,7 @@
                     (fail "Expected 'null'."))))
     'null))
 
-(defvar json-value nil)
+(defvar json-value)
 
 (defparameter json-array
   (comp ((_ (unit #\[))
@@ -101,17 +101,17 @@
           (setf (gethash (car v) obj) (cdr v)))
         obj))))
 
-(setf json-value
-      (comp ((_ whitespace)
-             (v (one-of number-literal
-                        string-literal
-                        json-object
-                        json-array
-                        true-symbol
-                        false-symbol
-                        null-symbol))
-             (_ whitespace))
-        v))
+(defparameter json-value
+  (comp ((_ whitespace)
+         (v (one-of number-literal
+                    string-literal
+                    json-object
+                    json-array
+                    true-symbol
+                    false-symbol
+                    null-symbol))
+         (_ whitespace))
+    v))
 
 (defun parse-string (str)
   (run json-value (input:from-string str)))