(define-record cairo-text-extents-type buffer)
(let ((maker make-cairo-text-extents-type))
  (set! make-cairo-text-extents-type
    (lambda () (maker (make-blob sizeof-cairo-text-extents)))))