From a834902181f33f87dfd9d9a24f4cee622622e950 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@jjgr-2.local>
Date: Sun, 7 Jun 2009 18:32:28 +0200
Subject: [PATCH] Use a different unreadable printed form for bytecode-closures
 than for ordinary bytecode expressions.

---
 src/c/print.d | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/src/c/print.d b/src/c/print.d
index 057d19018..d7e03d57b 100644
--- a/src/c/print.d
+++ b/src/c/print.d
@@ -1530,7 +1530,7 @@ si_write_ugly_object(cl_object x, cl_object stream)
                 break;
 
 	case t_bclosure:
-                if ( ecl_print_readably() ) {
+                if (ecl_print_readably()) {
 	                cl_index i;
 			cl_object lex = x->bclosure.lex;
                         cl_object code_l=Cnil, data_l=Cnil;
@@ -1547,7 +1547,16 @@ si_write_ugly_object(cl_object x, cl_object stream)
 				    code_l, data_l),
 			    stream);
 			break;
+                } else {
+                        cl_object name = x->bytecodes.name;
+                        write_str("#<bytecompiled-closure ", stream);
+                        if (name != Cnil)
+                             si_write_ugly_object(name, stream);
+                        else
+                             write_addr(x, stream);
+                        write_ch('>', stream);
                 }
+                break;
 	case t_bytecodes:
                 if ( ecl_print_readably() ) {
 	                cl_index i;