Hi everyone!
I found what happend with the foreign-symbol-address.
Although in the cmucl source code, the keyword flavor of the
foreign-symbol-address is set on true by default, you must put it when
you call the function and set it with :code or :data.
Now, my code was
(progn
(setq
*callback-marshal*
(sap-to-pointer (system:foreign-symbol-address
"callback_marshal")))
(setq
*destroy-marshal*
(sap-to-pointer (system:foreign-symbol-address
"destroy_marshal"))))
then I had to replace the lines like this:
(progn
(setq
*callback-marshal*
(sap-to-pointer (system:foreign-symbol-address "callback_marshal"
:flavor :code)))
(setq
*destroy-marshal*
(sap-to-pointer (system:foreign-symbol-address "destroy_marshal"
:flavor :code))))
And voila.
Gerardo M. Sarria M.
