> +(define (set-loop-device-status loop-file status)
> +  (let ((buf (make-bytevector sizeof-loop-info64)))
> +    (apply write-loop-info64! buf status) ; TODO: Be more user-friendly.

I don't know how instantiate a C structure given an assoc list.  Help?