mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 13:21:54 -08:00
Code Issues Projects Releases Packages Wiki Activity

Use a different unreadable printed form for bytecode-closures than for ordinary bytecode expressions.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-06-07 18:32:28 +02:00
parent dcfa4d2247
commit a834902181
1 changed files with 10 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

11
src/c/print.d
View file

@ -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;