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

Weak pointers can now be printed.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-09-03 16:55:33 +02:00
parent 4a3349a9f2
commit 00a5b33e01
1 changed files with 6 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/print.d
View file

@ -1580,6 +1580,12 @@ si_write_ugly_object(cl_object x, cl_object stream)
write_addr((void*)x->frame.base, stream);
write_ch('>', stream);
break;
case t_weak_pointer:
if (ecl_print_readably()) FEprint_not_readable(x);
write_str("#<weak-pointer ", stream);
write_addr(x, stream);
write_ch('>', stream);
break;
#ifdef ECL_THREADS
case t_process:
if (ecl_print_readably()) FEprint_not_readable(x);