Fixed defmethod priority. fixed subclassp

sasagawa888 · Nov 10, 2024 · cea2402 · cea2402
1 parent 9ab68dc
commit cea2402
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 2 deletions.
diff --git a/data.c b/data.c
@@ -393,6 +393,8 @@ int subclassp(int x, int y)
 	return (0);
     else if (y == cobject)
 	return (1);
+	else if (x == cobject)
+	return(0);
     else
 	return (subclassp1(x, y));
 }

diff --git a/tests/bug.lsp b/tests/bug.lsp
@@ -12,12 +12,11 @@
 
 (print-self (create (class <child>)))
 ;; => Expected PARENT:<class <CHILD>>, Not exit matched method at PRINT-SELF (<instance>)
-#|
+
 (defmethod print-self ((obj <object>))
   (format (standard-output) "OBJECT:~S~%" (class-of obj)))
 
 (print-self (create (class <parent>)))
 ;; => PARENT:<class <PARENT>>
 (print-self (create (class <child>)))
 ;; => Expected PARENT:<class <CHILD>>, but OBJECT:<class <CHILD>>.
-|#