FFI test on CLISP

now.c

/*
gcc -fPIC -shared -o libnow.so now.c
*/

#include <time.h>
#include <stdio.h>


char* now()
{
  time_t systime;
  struct tm tmtime;
  static char buff[64];

  systime = time(NULL);
  localtime_r(&systime, &tmtime);
  strftime(buff, sizeof(buff), "%c", &tmtime);
  return buff;
}

now.cl

(use-package "FFI")
(ffi:open-foreign-library "libnow.so")
(ffi:def-call-out now (:LIBRARY "libnow.so") (:language :stdc) (:return-type ffi:c-string))