;; #define Pm_MessageData1(msg) (((msg) >> 8) & 0xFF) (bind-func Pm_Message_Data1 (lambda (msg:PmMessage) (& (>> msg 8) #xFF)))