anchor.diff:  
       (when brush-hatch
         (setf (foreign-slot-value lb '(:struct logbrush) 'hatch)
  -           (make-pointer brush-hatch)))
  +	    (make-pointer brush-hatch)))
   
       (with-foreign-object (stlist :uint32 16)
         (do ((i 0 (1+ i))
  
positive.code:     (setf *enum-font-families* nil)
      (%enum-font-families hdc lf (callback enum-font-cb) 0 0)
      *enum-font-families*))
      
    
  (defcfun (%set-bk-mode "SetBkMode" :convention :stdcall) :int32
    (hdc :pointer)
    (mode :int32))
  
negative.code:   (exit-code :uint32))
  
  (defun post-quit-message (&optional exit-code)
    "Post the quit message to the message queue."
    (declare (type (or null integer) exit-code))
    (%post-quit-message (or exit-code 0))
    0)
  
  