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

Update ECL's old implementation of FORMAT to make it work (J. Jaakkola)

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-11-21 21:54:10 +01:00
parent f3f7947f5d
commit f1b60b9de9
5 changed files with 263 additions and 253 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/c/printer/write_object.d
View file

@ -88,6 +88,7 @@ cl_object
si_write_object(cl_object x, cl_object stream)
{
bool circle;
#ifdef CMU_FORMAT
if (ecl_symbol_value(@'*print-pretty*') != Cnil) {
cl_object f = funcall(2, @'pprint-dispatch', x);
if (VALUES(1) != Cnil) {
@ -95,6 +96,7 @@ si_write_object(cl_object x, cl_object stream)
goto OUTPUT;
}
}
#endif /* CMU_FORMAT */
circle = ecl_print_circle();
if (circle && !Null(x) && !FIXNUMP(x) && !CHARACTERP(x) &&
(LISTP(x) || (x->d.t != t_symbol) || (Null(x->symbol.hpack))))