mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-02 23:50:56 -08:00
Code Issues Projects Releases Packages Wiki Activity

_ecl_link_call would not restore the stack after invoking a generic function

Browse source
This commit is contained in:
jgarcia 2008-05-08 08:56:22 +00:00
parent 6d84390665
commit aed7dd61b1
2 changed files with 5 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
src/c/eval.d
View file

@ -154,13 +154,15 @@ _ecl_link_call(cl_object sym, cl_objectfn *pLK, cl_object cblock, int narg, cl_v
case t_instance:
switch (fun->instance.isgf) {
case ECL_STANDARD_DISPATCH:
return _ecl_standard_dispatch(frame, fun);
out = _ecl_standard_dispatch(frame, fun);
break;
case ECL_USER_DISPATCH:
fun = fun->instance.slots[fun->instance.length - 1];
goto AGAIN;
default:
FEinvalid_function(fun);
}
goto AGAIN;
break;
#endif /* CLOS */
case t_cclosure:
out = APPLY_closure(narg, fun->cclosure.entry,

2
src/lsp/config.lsp.in
View file

@ -46,7 +46,7 @@ Returns, as a string, the location of the machine on which ECL runs."
(defun lisp-implementation-version ()
"Args:()
Returns the version of your ECL as a string."
"@PACKAGE_VERSION@ (CVS 2008-05-07 11:23)")
"@PACKAGE_VERSION@ (CVS 2008-05-08 10:55)")
(defun machine-type ()
"Args: ()