diff options
-rw-r--r-- | json.lisp | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -99,7 +99,7 @@ (if vn (cons v0 vn) (list v0)) - 'empty-array))) + nil))) (defparameter json-object (let ((json-pair @@ -128,7 +128,7 @@ (let ((obj (make-hash-table :test #'equal))) (setf (gethash (car v0) obj) (cdr v0)) obj)) - 'empty-object)))) + (make-hash-table :test #'equal))))) (setf json-value (comp ((_ whitespace) |