anchor.diff:  			  last-id
   			  check-id
   			  (if by-position #x400 0)))
  -			      
  +
   
   (defcfun (%get-menu-state "GetMenuState" :convention :stdcall)
       :uint32
  
positive.code: 	  (get-last-error)
  	  (values res
  		  (when recipients (mem-aref r :uint32)))))))
      
  (defcfun (%reply-message "ReplyMessage" :convention :stdcall)
      :boolean
    (lresult lresult))
  
negative.code:   p)
  
  (defun foreign-msg (p msg)
    (declare (type foreign-pointer p)
  	   (type msg msg))
    (setf (msg-hwnd msg) (foreign-slot-value p '(:struct msg) 'hwnd)
  	(msg-message msg) (foreign-slot-value p '(:struct msg) 'message)
  	(msg-wparam msg) (foreign-slot-value p '(:struct msg) 'wparam)
  