lispビルトイン関数 : output-debug-string()

gistfile1.txt

lisp
Fsi_output_debug_string (lisp string)
{
  if(stringp(string))
    {
      char srcPath[MAX_PATH+1];
      w2s(srcPath, xstring_contents(string), xstring_length(string));
      strcat(srcPath, "\n");
      OutputDebugStringA(srcPath);
    }
  return Qnil;
}