;; #define Pm_MessageData2(msg) (((msg) >> 16) & 0xFF) (bind-func Pm_Message_Data2 (lambda (msg:PmMessage) (& (>> msg 16) #xFF)))