(foreign-declare "#include <time.h>")

(define get-microsecs (foreign-lambda* double ()
  "struct timespec ts;"
   "if( clock_gettime( CLOCK_MONOTONIC, &ts ) < 0 ) return( -1.0 );"
   "return( ((double) ts.tv_sec) * 1e6 + ((double) ts.tv_nsec) / 1e3 );"))