eval - environment

[David Pirotte]

Hi,

I still have problem with the following code:

        (define-method (load-tuples&build-inst-1 (db-tb-cl-mt <db-tb-cl-mt>) 
args)
          (let* ((cl-name (cl-nme db-tb-cl-mt))
                 (make-form (eval `(make ,cl-name ,@args)
==>                               ???
                                  )))
            make-form))

i would like eval to use the environment of the caller, here 
load-tuples&build-inst-1,
because it contains (it should) everything needed and also will 'put' the 
evaluated
forms in the right environment, no? so, how can i tell eval to do that?

Neil Jerram suggested

        (define this-module (current-module))

        and then use `this-module' as the second eval argument rather than
        `(interaction-environment)'

but that is not satisfying because i don't know yet at read time what is
the module (environment) where the method will be executed in

i could not find doc about 'local-environment and  i am a little bit confused 
because
i was making the assumption that unless otherwise specified, eval would 
precisly use
the local-environment

manythanks for some hints,
david