1 files changed, 3 insertions, 3 deletions

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)))