James Bielman wrote:
You seem to be going to a fair bit of trouble here to reproduce what the CFFI :STRING type does automatically... why not something like:
(defcfun ("Tcl_EvalFile" tcl-eval-file) :int (interp :pointer) (filename :string))
(defcfun ("Tcl_Eval" tcl-eval) :int (interp :pointer) (script :string))
Small "but": tcl use strings in utf-8. If you want get/put non-ascii string...