From a5225823b8b57da578214f886d315dc7cdc64265 Mon Sep 17 00:00:00 2001
From: bmiww <bmiww@bky.one>
Date: Sun, 4 Feb 2024 21:29:42 +0100
Subject: [PATCH] if=>when to unread number token symbols This was causing
 crashes in sbcl when spamming the stream

---
 src/decoder.lisp | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/decoder.lisp b/src/decoder.lisp
index 7686d96..f0ad423 100644
--- a/src/decoder.lisp
+++ b/src/decoder.lisp
@@ -103,7 +103,7 @@ as a string."
         (read-part Int nil #\-)
         (read-part Frac #\.)
         (read-part Exp #\e #\- #\+)
-        (if c (unread-char c stream))
+	(when c (unread-char c stream))
         (values category (coerce (cdr chars) 'string))))))
 
 (defun read-json-name-token (stream)