From fd23737f7e73d8065c2923cee5a4d93a20d5b36e Mon Sep 17 00:00:00 2001
From: "Paul M. Rodriguez" <pmr@ruricolist.com>
Date: Sat, 4 May 2024 10:50:43 -0500
Subject: [PATCH] Work around a clasp type inference issue

---
 macro-tools.lisp | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/macro-tools.lisp b/macro-tools.lisp
index f1a7383..02d2220 100644
--- a/macro-tools.lisp
+++ b/macro-tools.lisp
@@ -240,7 +240,9 @@ directly into Lisp code:
                 `(if (arrayp ,seq)
                      ,vector-form
                      ,array-form))))
-    #-(or sbcl abcl ccl)
+    #+clasp
+    `(if (listp ,seq) ,list-form ,array-form)
+    #-(or sbcl abcl ccl clasp)
     `(if (listp ,seq) ,list-form ,vector-form)))
 
 (defmacro vector-dispatch (vec &body (bit-vector-form vector-form))