(define
  (cpuid name code . types)
  (apply
   (cut define <> <> . <>)     ; this defines 
         (#~~ (#~QueryInterface <> )  <...>))
         name code types))

(cpuid  ci #x21452459  return: pointer:)