mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-03-15 09:20:23 -07:00
Code Issues Projects Releases Packages Wiki Activity

In wt-call, coerce directly to cl_object so that C++ compiler dos not complain.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2009-03-28 23:06:27 +01:00
parent da2b7918e4
commit 00892c7569
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/cmpcall.lsp
View file

@ -227,7 +227,7 @@
(if env
(progn
(setf *aux-closure* t)
(wt "(aux_closure.env="env",cl_env_copy->function=(void*)&aux_closure,")
(wt "(aux_closure.env="env",cl_env_copy->function=(cl_object)&aux_closure,")
(wt-call fun args)
(wt ")"))
(progn