diff options
-rw-r--r-- | load.lisp | 24 |
1 files changed, 12 insertions, 12 deletions
@@ -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))) |