From db59ff73c5790676ba8757b3d8891197e171baf5 Mon Sep 17 00:00:00 2001
From: Yukari Hafner <shinmera@tymoon.eu>
Date: Tue, 24 Sep 2024 13:30:38 +0200
Subject: [PATCH] Bad.

---
 translations.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/translations.lisp b/translations.lisp
index 5e62c86..1c38422 100644
--- a/translations.lisp
+++ b/translations.lisp
@@ -180,10 +180,11 @@
     (T (string value))))
 
 (defmethod parse-from ((json string) (type (eql 'keyword)) gltf)
-  (intern (string-upcase json) "KEYWORD"))
+  (if (string-equal json "nil") NIL (intern (string-upcase json) "KEYWORD")))
 
 (defmethod serialize-to ((type (eql 'keyword)) value)
-  (string-downcase value))
+  (when value
+    (string-downcase value)))
 
 (defmethod parse-from (json (type (eql 'mesh-attributes)) gltf)
   (let ((table (make-hash-table :test 'eql)))