print and equal? support external types

Author: masaedw

Diff for: lisp.c

@@ -295,6 +295,12 @@ bool St_EqualP(StObject lhs, StObject rhs)
         return St_VectorEqualP(lhs, rhs);
     }
 
+    if (ST_EXTERNALP(lhs) && ST_EXTERNALP(rhs) &&
+        ST_EXTERNAL_TYPE_INFO(lhs) == ST_EXTERNAL_TYPE_INFO(rhs))
+    {
+        return ST_EXTERNAL_TYPE_INFO(lhs)->equalp(lhs, rhs);
+    }
+
     return St_EqvP(lhs, rhs);
 }
 

Diff for: lisp.h

@@ -54,6 +54,7 @@ struct StExternalObjectHeader
 };
 typedef struct StExternalObjectHeader *StExternalObject;
 #define ST_EXTERNAL_OBJECT(x) ((StExternalObject)(x))
+#define ST_EXTERNAL_TYPE_INFO(x) (ST_EXTERNAL_OBJECT(x)->type_info)
 
 struct StCellRec
 {

Diff for: print.c

@@ -145,6 +145,12 @@ static void print(StObject obj, StObject port)
         break;
     }
 
+    case TEXTERNAL: {
+        ST_EXTERNAL_TYPE_INFO(obj)->print(obj, port);
+
+        break;
+    }
+
     default:
         St_Error("unknown type %d", obj->type);
     }