From ddb4e50b2bcb700dc4fb0012d9a149f08726651f Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Juan=20Manuel=20Tom=C3=A1s?= <jtomas1815@gmail.com>
Date: Thu, 3 Nov 2022 13:14:32 -0300
Subject: Add an interface to the json package

---
 json.lisp    | 6 ++++++
 package.lisp | 4 +++-
 2 files changed, 9 insertions(+), 1 deletion(-)

diff --git a/json.lisp b/json.lisp
index cc3e0c1..44d6262 100644
--- a/json.lisp
+++ b/json.lisp
@@ -125,3 +125,9 @@
                     null-symbol))
          (_ whitespace))
     v))
+
+(defun parse-string (str)
+  (run json-value (input:from-string str)))
+
+(defun parse-file (file)
+  (run json-value (input:from-file file)))
diff --git a/package.lisp b/package.lisp
index 609b6b4..d2b1e6f 100644
--- a/package.lisp
+++ b/package.lisp
@@ -1,2 +1,4 @@
 (defpackage #:json
-  (:use #:cl #:parser))
+  (:use #:cl #:parser)
+  (:export #:parse-string
+           #:parse-file))
-- 
cgit v1.2.3