From 6d6addef437d99555a0b65d6be1cb1b2687e8e32 Mon Sep 17 00:00:00 2001
From: "Paul M. Rodriguez" <pmr@ruricolist.com>
Date: Sun, 19 May 2024 12:36:27 -0500
Subject: [PATCH] Selectively disable type dispatch mechanism on some Lisps

---
 types.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/types.lisp b/types.lisp
index 3797c89..0a91562 100644
--- 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."
+  #+clasp
+  `(locally ,@body)
+  #-clasp
   `(locally (declare #+sbcl (sb-ext:muffle-conditions sb-ext:code-deletion-note))
      ,(let* ((types (simplify-subtypes types))
              (var-type (variable-type var env))