From c056fba57c695c0504ef21c7cb3ad430862b53e8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= <jtomas1815@gmail.com>
Date: Fri, 4 Nov 2022 17:59:50 -0300
Subject: Change how array and object return empty value

---
 json.lisp | 4 ++--
 1 file 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)
-- 
cgit v1.2.3