From c73b2e73d91dd81b3381ecc729e89011e85e5acd Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Sun, 15 Mar 2026 20:24:13 +0100
Subject: [PATCH] [wip] write ugly print corrupted objects

---
 src/c/printer/write_ugly.d | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/c/printer/write_ugly.d b/src/c/printer/write_ugly.d
index f96c81747..663ddee62 100644
--- a/src/c/printer/write_ugly.d
+++ b/src/c/printer/write_ugly.d
@@ -459,10 +459,16 @@ write_illegal(cl_object x, cl_object stream)
   _ecl_write_unreadable(x, "illegal pointer", ECL_NIL, stream);
 }
 
+static void
+write_corrupted(cl_object x, cl_object stream)
+{
+  _ecl_write_unreadable(x, "corrupted", ECL_NIL, stream);
+}
+
 typedef void (*printer)(cl_object x, cl_object stream);
 
 static printer dispatch[FREE+1] = {
-  0                         /* t_start = 0 */,
+  write_corrupted,              /* t_start = 0 */
   _ecl_write_list,              /* t_list = 1 */
   write_character,              /* t_character = 2 */
   write_integer,                /* t_fixnum = 3 */