From af4d6337e64a793e9c1775c989c43dd698d50f7c Mon Sep 17 00:00:00 2001
From: kilianmh <kilian.haemmerle@protonmail.com>
Date: Wed, 13 Sep 2023 01:32:30 +0200
Subject: [PATCH] Fix: type error

Avoid string-equal on list with types.
---
 client/core.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/client/core.lisp b/client/core.lisp
index 010fd5a..2f9ac33 100644
--- a/client/core.lisp
+++ b/client/core.lisp
@@ -305,7 +305,8 @@
                                       prop-schema
                                       classes-cache
                                       :export-symbols export-symbols)))))
-        ((string-equal type "array")
+        ((and (stringp type)
+              (string-equal type "array"))
          (let ((element-transformation
                  (generate-result-transformation api-class-name
                                                  'item