TMP Disable type dispatch in clasp

ruricolist · Apr 25, 2024 · 83414a8 · 83414a8
1 parent 05162a5
commit 83414a8
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/types.lisp b/types.lisp
@@ -513,6 +513,9 @@ Functions\", by Irène Durand and Robert Strandh."
                                         (with-read-only-vars (,var)
                                           (with-vref ,type
                                             ,@body))))))))
+              ((or #+clasp t)
+               `(locally (declare (type (or ,@types) ,var))
+                  ,@body))
               (t
                `(with-type-declarations-trusted ()
                   (etypecase ,var