Change how array and object return empty value

1 files changed, 2 insertions, 2 deletions

diff --git a/json.lisp b/json.lisp
index ab6d52b..2829abe 100644
--- a/json.lisp
+++ b/json.lisp
@@ -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)