(define-syntax cpuid
  (syntax-rules ()
    ((_ ?name ?code ?type0 ...)
     (define (?name ?code)
       (#~~ (#~QueryInterface ?name) ?type0 ...)))))

(cpuid  ci #x21452459  return: pointer:)