Merge pull request #13 from kilianmh/fix/class-redefinition

Fix: json-serializable-class redefinition
gschjetne · Aug 16, 2023 · af3286a · af3286a
2 parents 4f3e9b0 + 4bbb7e0
commit af3286a
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/src/json-mop.lisp b/src/json-mop.lisp
@@ -57,4 +57,11 @@
          (append direct-superclasses (list (find-class 'json-serializable)))
          rest))
 
+(defmethod reinitialize-instance :around ((class json-serializable-class)
+                                          &rest rest &key direct-superclasses)
+  (apply #'call-next-method
+         class
+         :direct-superclasses
+         (append direct-superclasses (list (find-class 'json-serializable)))
+         rest))