From 295dfc0cd8e07d03a49a80ca01d12cd87db28aa8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Daniel=20Kochma=C5=84ski?= <daniel@turtleware.eu>
Date: Wed, 18 Dec 2024 10:45:47 +0100
Subject: [PATCH] printer: fix the write_ugly method for bclosure

We've made an implicit cast from bclosure to bytecodes, so instead of a name
we've printed bytecodes itself.

Except from thsi fix we also write the closure address to make it possible to
distinguish two different closures over the same function.
---
 src/c/printer/write_code.d | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/src/c/printer/write_code.d b/src/c/printer/write_code.d
index c937a4450..5abf46ec1 100644
--- a/src/c/printer/write_code.d
+++ b/src/c/printer/write_code.d
@@ -56,13 +56,13 @@ _ecl_write_bclosure(cl_object x, cl_object stream)
   if (ecl_print_readably()) {
     _ecl_write_bytecodes_readably(x->bclosure.code, stream, x->bclosure.lex);
   } else {
-    cl_object name = x->bytecodes.name;
+    cl_object name = x->bclosure.code->bytecodes.name;
     writestr_stream("#<bytecompiled-closure ", stream);
     if (name != ECL_NIL) {
       si_write_ugly_object(name, stream);
-    } else {
-      _ecl_write_addr((void *)x, stream);
+      writestr_stream(" ", stream);
     }
+    _ecl_write_addr((void *)x, stream);
     ecl_write_char('>', stream);
   }
 }