Selectively disable type dispatch mechanism on some Lisps

ruricolist · May 19, 2024 · 5ba2a16 · 5ba2a16
1 parent f2a1e69
commit 5ba2a16
Showing 1 changed file with 3 additions and 0 deletions.
diff --git a/types.lisp b/types.lisp
@@ -480,6 +480,9 @@ Serapeum, `with-templated-body'. One possible expansion is based on
 the `string-dispatch' macro used internally in SBCL. But most of the
 credit should go to the paper \"Fast, Maintable, and Portable Sequence
 Functions\", by Irène Durand and Robert Strandh."
+  #+(or clasp clisp)
+  `(locally ,@body)
+  #-(or clasp clisp)
   `(locally (declare #+sbcl (sb-ext:muffle-conditions sb-ext:code-deletion-note))
      ,(let* ((types (simplify-subtypes types))
              (var-type (variable-type var env))