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

The code generated by cmpcbk.lsp passed a wrong # of arguments to ecl_apply_from_stack_frame().

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-04-01 12:52:36 +02:00
parent 5e39337e0e
commit e2fe75e9c6
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpcbk.lsp
View file

@ -110,7 +110,7 @@
n "," ct "));")
(wt-nl "ecl_stack_frame_push(frame,ecl_make_foreign_data(&var"
n "," ct "," (ffi:size-of-foreign-type type) "));")))
(wt-nl "aux = ecl_apply_from_stack_frame(cl_env_copy,frame,"
(wt-nl "aux = ecl_apply_from_stack_frame(frame,"
"ecl_fdefinition(" c-name-constant "));")
(wt-nl "ecl_stack_frame_close(frame);")
(when return-p