;; Change 
;; from: (c-pointer struct "tm")
;; to:   (c-pointer (struct "tm"))
;;
;;

(define _mktime
  (foreign-lambda
   long
   "mktime"
   (c-pointer (struct "tm"))))