anchor.diff:  
   (defbinding stock-lookup () boolean
     (stock-id string)
  -  (stock-item stock-item :out))
  +  ((make-instance 'stock-item) stock-item :return))
     
   
   
  
positive.code: 	(format nil "Gtk+ v~A.~A" major minor) 
        (format nil "Gtk+ v~A.~A.~A" major minor micro))))
  
  (defbinding get-default-language () string)
  
  
  ;;;; Initalization
  
negative.code: ;; License along with this library; if not, write to the Free Software
  ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  
  ;; $Id: gtk.lisp,v 1.18 2004-11-19 13:09:00 espen Exp $
  
  
  (in-package "GTK")
  
  ;;; Gtk version
  
  (defbinding check-version () (copy-of string)
    (required-major unsigned-int)
    (required-minor unsigned-int)
    (required-micro unsigned-int))
  