anchor.diff:  (defbinding keyboard-grab (window &key owner-events time) grab-status
     (window window)
     (owner-events boolean)
  -  ((%grab-time time) (unsigned 32)))
  +  ((or time 0) (unsigned 32)))
   
   (defbinding (keyboard-ungrab "gdk_display_keyboard_ungrab")
  -    (&optional (display (display-get-default)) time) nil
  +    (&optional time (display (display-get-default))) nil
     (display display)
  -  ((%grab-time time) (unsigned 32)))
  +  ((or time 0) (unsigned 32)))
   
   
   
  
positive.code: ;; Common Lisp bindings for GTK+ v2.0
  ;; Copyright (C) 1999-2005 Espen S. Johnsen <espen@users@sf.net>
  ;;
  ;; This library is free software; you can redistribute it and/or
  ;; modify it under the terms of the GNU Lesser General Public
  
negative.code: (defbinding screen-width-mm () int)
  (defbinding screen-height-mm () int)
  
  (defbinding pointer-grab 
      (window &key owner-events events confine-to cursor time) grab-status
    (window window)
  