mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 15:22:03 -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/string.d
View file

@ -60,10 +60,10 @@ do_make_string(cl_index s, ecl_character code)
} else if (element_type == @'character') {
cl_index code = ecl_char_code(initial_element);
x = do_make_string(s, code);
} else if (funcall(3, @'subtypep', element_type, @'base-char') == Ct) {
} else if (_ecl_funcall3(@'subtypep', element_type, @'base-char') == Ct) {
int code = ecl_base_char_code(initial_element);
x = do_make_base_string(s, code);
} else if (funcall(3, @'subtypep', element_type, @'character') == Ct) {
} else if (_ecl_funcall3(@'subtypep', element_type, @'character') == Ct) {
cl_index code = ecl_char_code(initial_element);
x = do_make_string(s, code);
} else {