anchor.diff:  
   ;;; Key values
   
  -(define-foreign keyval-name () string
  +(defbinding keyval-name () string
     (keyval unsigned-int))
   
  -(define-foreign keyval-from-name () unsigned-int
  +(defbinding keyval-from-name () unsigned-int
     (name string))
   
  -(define-foreign keyval-to-upper () unsigned-int
  +(defbinding keyval-to-upper () unsigned-int
     (keyval unsigned-int))
   
  -(define-foreign keyval-to-lower ()unsigned-int
  +(defbinding keyval-to-lower ()unsigned-int
     (keyval unsigned-int))
   
  -(define-foreign ("gdk_keyval_is_upper" keyval-is-upper-p) () boolean
  +(defbinding (keyval-is-upper-p "gdk_keyval_is_upper") () boolean
     (keyval unsigned-int))
   
  -(define-foreign ("gdk_keyval_is_lower" keyval-is-lower-p) () boolean
  +(defbinding (keyval-is-lower-p "gdk_keyval_is_lower") () boolean
     (keyval unsigned-int))
   
  
positive.code: ;; Common Lisp bindings for GTK+ v1.2.x
  ;; Copyright (C) 1999 Espen S. Johnsen <espejohn@online.no>
  ;;
  ;; This library is free software; you can redistribute it and/or
  ;; modify it under the terms of the GNU Lesser General Public
  
negative.code:       (window-clear-area-e window x y width height)
      (window-clear-area-no-e window x y width height)))
  
  ; (defbinding window-copy-area () nil
  ;   (window window)
  ;   (gc gc)
  ;   (x int)
  