1 files changed, 6 insertions, 0 deletions
diff --git a/json.lisp b/json.lisp
index 5f570d5..9c17bc8 100644
--- a/json.lisp
+++ b/json.lisp
@@ -48,3 +48,9 @@
                                       (unit (lambda (x) (char/= x #\"))))))
          (end (unit (lambda (x) (char= x #\")))))
     (list 'string chars)))
+
+(defparameter whitespace-parser
+  (comp ((whitespace (zero-or-more (unit (lambda (x) (or (char= x #\Space)
+                                                         (char= x #\Newline)
+                                                         (char= x #\Tab)))))))
+    nil))