anchor.diff:  (defbinding (keyval-is-lower-p "gdk_keyval_is_lower") () boolean
     (keyval unsigned-int))
   
  +
   ;;; Cairo interaction
   
   #?(pkg-exists-p "gtk+-2.0" :atleast-version "2.8.0")
  
positive.code:     (%leave-fn callback))
  
    (defun threads-init ()
      (%threads-set-lock-functions)
      (setq *global-lock* (sb-thread:make-mutex :name "global GDK lock")))
  
    (defmacro with-global-lock (&body body)
      `(progn
  
negative.code:     (cr cairo:context)
      (color color))
  
    (defbinding cairo-set-source-pixbuf (cr pixbuf &optional (x 0.0) (y 0.0)) nil
      (cr cairo:context)
      (pixbuf pixbuf)
      (x double-float)
      (y double-float))
   
    (defbinding cairo-set-source-pixmap (cr pixmap &optional (x 0.0) (y 0.0)) nil
      (cr cairo:context)
      (pixmap pixmap)
      (x double-float)
      (y double-float))
   
  