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))