buttons in Lisp Environment

[parisel@enseeiht.fr (Christophe PARISEL)]

  Hello,

I'd like to save the code generated during the TYPOL interpretation.
I've got a specific button, called 'save', defined in my_lang.env as follows :

(de {my_lang}:save (ctview)
    (lets ((var ({ctedit}:subject (send 'object ctview)))
           (filename (#:interface:query-dialog "File Name : "))
          )
           (when filename (#:inter:store-file (ecrirep var) filename 80 () 'std)
          )
    )
)

But it doesn't work fine (I've a funcall : undefined function error).
Could someone send me the proper Lisp-function to perform it correctly?

Thanks in advance,
 C.Parisel