anchor.diff:  ;   (width int)
   ;   (height int))
   
  -(define-foreign window-raise () nil
  -  (window window))
  -
  -(define-foreign window-lower () nil
  -  (window window))
  -
  -; (define-foreign window-set-user-data () nil
  -
  -(define-foreign window-set-override-redirect () nil
  +(defbinding window-raise () nil
  +  (window window))
  +
  +(defbinding window-lower () nil
  +  (window window))
  +
  +; (defbinding window-set-user-data () nil
  +
  +(defbinding window-set-override-redirect () nil
     (window window)
     (override-redirect boolean))
   
  -; (define-foreign window-add-filter () nil
  -
  -; (define-foreign window-remove-filter () nil
  -
  -(define-foreign window-shape-combine-mask () nil
  +; (defbinding window-add-filter () nil
  +
  +; (defbinding window-remove-filter () nil
  +
  +(defbinding window-shape-combine-mask () nil
     (window window)
     (shape-mask bitmap)
     (offset-x int)
     (offset-y int))
   
  -(define-foreign window-set-child-shapes () nil
  -  (window window))
  -
  -(define-foreign window-merge-child-shapes () nil
  -  (window window))
  -
  -(define-foreign ("gdk_window_is_visible" window-is-visible-p) () boolean
  -  (window window))
  -
  -(define-foreign ("gdk_window_is_viewable" window-is-viewable-p) () boolean
  -  (window window))
  -
  -(define-foreign window-set-static-gravities () boolean
  +(defbinding window-set-child-shapes () nil
  +  (window window))
  +
  +(defbinding window-merge-child-shapes () nil
  +  (window window))
  +
  +(defbinding (window-is-visible-p "gdk_window_is_visible") () boolean
  +  (window window))
  +
  +(defbinding (window-is-viewable-p "gdk_window_is_viewable") () boolean
  +  (window window))
  +
  +(defbinding window-set-static-gravities () boolean
     (window window)
     (use-static boolean))
   
  -; (define-foreign add-client-message-filter ...
  +; (defbinding add-client-message-filter ...
   
   
   ;;; Drag and Drop
   
  -(define-foreign drag-context-new () drag-context)
  -
  -(define-foreign drag-context-ref () nil
  -  (context drag-context))
  -
  -(define-foreign drag-context-unref () nil
  -  (context drag-context))
  -
   ;; Destination side
   
  -(define-foreign drag-status () nil
  +(defbinding drag-status () nil
     (context drag-context)
     (action drag-action)
     (time (unsigned 32)))
  
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: 
  
  
  (defbinding window-set-cursor () nil
    (window window)
    (cursor cursor))
  
  (defbinding window-get-pointer () window
    (window window)
    (x int :out)
    (y int :out)
    (mask modifier-type :out))
  
  (defbinding get-root-window () window)
  
  
  
  ;;
  
  (defbinding rgb-init () nil)
  
  
  
  