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

Introduce _ecl_funcall[0-5] to move the core from using cl_funcall to ecl_function_dispatch.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-12-18 00:26:53 +01:00
parent 3b45bc6ecf
commit ee13dcd388
10 changed files with 94 additions and 80 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -90,9 +90,9 @@ si_write_object(cl_object x, cl_object stream)
bool circle;
#ifdef ECL_CMU_FORMAT
if (ecl_symbol_value(@'*print-pretty*') != Cnil) {
cl_object f = funcall(2, @'pprint-dispatch', x);
cl_object f = _ecl_funcall2(@'pprint-dispatch', x);
if (VALUES(1) != Cnil) {
funcall(3, f, stream, x);
_ecl_funcall3(f, stream, x);
goto OUTPUT;
}
}