mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-20 11:32:35 -08:00
Code Issues Projects Releases Packages Wiki Activity

A file in src/c/printer/ still used the old macro name CMU_FORMAT instead of ECL_CMU_FORMAT

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2010-12-08 23:22:27 +01:00
parent dd0b716c40
commit ac796033eb
1 changed files with 2 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -88,7 +88,7 @@ cl_object
si_write_object(cl_object x, cl_object stream)
{
bool circle;
#ifdef CMU_FORMAT
#ifdef ECL_CMU_FORMAT
if (ecl_symbol_value(@'*print-pretty*') != Cnil) {
cl_object f = funcall(2, @'pprint-dispatch', x);
if (VALUES(1) != Cnil) {
@ -96,7 +96,7 @@ si_write_object(cl_object x, cl_object stream)
goto OUTPUT;
}
}
#endif /* CMU_FORMAT */
#endif /* ECL_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))))