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

[wip] write ugly print corrupted objects

Browse source
This commit is contained in:
Daniel Kochmański 2026-03-15 20:24:13 +01:00
parent 5ea9949838
commit c73b2e73d9
1 changed files with 7 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

8
src/c/printer/write_ugly.d
View file

@ -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 */