anchor.diff:  	 res)
   	(t
   	 (get-last-error))))))
  -				  
  +
   (defcfun (%get-menu "GetMenu" :convention :stdcall)
       :pointer
     (hwnd :pointer))
  
positive.code:   p)
  
  (defun foreign-msg (p 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)
  
negative.code: (defun get-text-color (hdc)
    (%get-text-color hdc))
  
  ;; (defcfun (%create-di-bitmap "CreateDIBitmap" :convention :stdcall)
  ;;     :pointer
  ;;   (hdc :pointer)
  