(define-syntax cpuid
  (syntax-rules ()
    ((_ ?name ?code ?type ...)
     (define (?name . args-list)
       (apply  (#~~ (#~QueryInterface ?code return: pointer: ) ?type ... ) args-list)))))