From a802a63364721a2da95b75bc8ab19abfa4888373 Mon Sep 17 00:00:00 2001
From: Uko Kokņevičs
Date: Sat, 18 Oct 2025 08:19:45 +0300
Subject: Bunch more tiny improvements

---
 src/serializing.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'src/serializing.lisp')

diff --git a/src/serializing.lisp b/src/serializing.lisp
index 7fafb3a..205190f 100644
--- a/src/serializing.lisp
+++ b/src/serializing.lisp
@@ -47,14 +47,14 @@
     json))
 
 (defmethod parse-value ((type cons) json)
-  (cond ((and (eq (car type) 'array)
+  (cond ((and (eq (first type) 'array)
               (null (cddr type)))
          (when json
            (let ((element-type (cadr type)))
              (iter (for element in-vector json)
                (collect (parse-value element-type element) result-type vector)))))
-        ((eq (car type) 'or)
-         (iter (for el-type in (cdr type))
+        ((eq (first type) 'or)
+         (iter (for el-type in (rest type))
            (multiple-value-bind (success res) (try-parse-value el-type json)
              (when success
                (return res)))
-- 
cgit v1.2.3