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