[Ecls-list] ecl_callback error

[gas]

Hi,
using the callback (the git code), I obtain the following error:
  /home/alex/Software/CommonLisp/Packages/gtk-cffi/glib/glist.c: In
function 'ecl_callback_0':
  /home/alex/Software/CommonLisp/Packages/gtk-cffi/glib/glist.c:180:
error: 'cl_env_copy' undeclared (first use in this function)
  /home/alex/Software/CommonLisp/Packages/gtk-cffi/glib/glist.c:180:
error: (Each undeclared identifier is reported only once
  /home/alex/Software/CommonLisp/Packages/gtk-cffi/glib/glist.c:180:
error: for each function it appears in.)

I fix it with adding "(wt-nl "const cl_env_ptr cl_env_copy =
ecl_process_env();")" to the cmpcbk.lsp file:
   (wt-nl1 "{")
       (when return-p
         (wt-nl return-type-name " output;"))
      (wt-nl "const cl_env_ptr cl_env_copy = ecl_process_env();")
      (wt-nl "cl_object aux;")
      (wt-nl "ECL_BUILD_STACK_FRAME(cl_env_copy, frame, helper)")
      (loop for n from 0

Regards,
Alessandro

-- 
The basic tool for the manipulation of reality is the manipulation of
words. If you can control the meaning of words, you can control the
people who must use the words.
                   How To Build A Universe That Doesn't Fall Apart Two
Days Later
                   Philip K. Dick