From c056fba57c695c0504ef21c7cb3ad430862b53e8 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= 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(-) (limited to 'json.lisp') 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