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

(cpuid  ci return: pointer:)

;; Usage:
(ci #x21452459)