From ea84b10a6155ad90dea49949232c171b7c47d8ad Mon Sep 17 00:00:00 2001
From: "Tarn W. Burton" <twburton@gmail.com>
Date: Fri, 13 Oct 2023 08:41:27 -0400
Subject: [PATCH] Skip check on Clasp

---
 code/interface.lisp | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/code/interface.lisp b/code/interface.lisp
index 93fb7e0..44dd114 100644
--- a/code/interface.lisp
+++ b/code/interface.lisp
@@ -36,7 +36,8 @@
        (defmethod closer-mop:validate-superclass ((class ,structure-class-name) (superclass (eql (find-class 'standard-object))))
          ;; Only STRUCTURE-OBJECT may have STANDARD-OBJECT as a direct superclass, all
          ;; other structure classes must inherit from STRUCTURE-OBJECT.
-         (eql (class-name class) ',structure-object-name))
+         #-clasp (eql (class-name class) ',structure-object-name)
+         #+clasp t)
 
        (defclass ,structure-object-name ,object-superclasses
          ()