(uffi:def-function ("time" c-time)
((time (* time-t)))
+ :module "c"
:returning time-t)
(uffi:def-function "gmtime"
((time (* time-t)))
+ :module "c"
:returning (* tm))
(uffi:def-function "asctime"
((time (* tm)))
+ :module "c"
:returning :cstring)
(uffi:def-type time-t :unsigned-long)
(uffi:def-function ("gettimeofday" c-gettimeofday)
((tv (* timeval))
(tz (* timezone)))
+ :module "c"
:returning :int)
(defun get-utime ()