Skip check on Clasp

s-expressionists · Oct 13, 2023 · ea84b10 · ea84b10
1 parent 11a4890
commit ea84b10
Showing 1 changed file with 2 additions and 1 deletion.
diff --git 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
          ()