Work around a clasp type inference issue

ruricolist · May 4, 2024 · fd23737 · fd23737
1 parent 05162a5
commit fd23737
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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))