mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-12 07:50:26 -07:00
Code Issues Projects Releases Packages Wiki Activity

Printer addresses

Browse source
This commit is contained in:
Daniel Kochmański 2018-05-04 08:38:33 +00:00
parent 07391b9ced
commit ca0962cdb3
5 changed files with 40 additions and 21 deletions
Download patch file Download diff file Expand all files Collapse all files

15
src/c/printer/write_code.d
View file

@ -33,13 +33,7 @@ _ecl_write_bytecodes(cl_object x, cl_object stream)
x->bytecodes.file_position),
stream);
} else {
cl_object name = x->bytecodes.name;
writestr_stream("#<bytecompiled-function ", stream);
if (name != ECL_NIL)
si_write_ugly_object(name, stream);
else
_ecl_write_addr(x, stream);
ecl_write_char('>', stream);
_ecl_write_unreadable(x, "bytecompiled-function", x->bytecodes.name, stream);
}
}
@ -58,10 +52,11 @@ _ecl_write_bclosure(cl_object x, cl_object stream)
} else {
cl_object name = x->bytecodes.name;
writestr_stream("#<bytecompiled-closure ", stream);
if (name != ECL_NIL)
if (name != ECL_NIL) {
si_write_ugly_object(name, stream);
else
_ecl_write_addr(x, stream);
} else {
_ecl_write_addr((void *)x, stream);
}
ecl_write_char('>', stream);
}
}