(define pffi-size-of
  (lambda (type)
    (cond ((equal? type 'int8) 1))))