anchor.diff:  
   
   (defmethod compute-signal-function ((widget widget) signal function object)
  +  (declare (ignore signal))
     (if (eq object :parent)
         #'(lambda (&rest args)
   	  (if (slot-boundp widget 'parent)
  
positive.code: ;; Common Lisp bindings for GTK+ v2.x
  ;; Copyright 2000-2005 Espen S. Johnsen <espen@users.sf.net>
  ;;
  ;; Permission is hereby granted, free of charge, to any person obtaining
  ;; a copy of this software and associated documentation files (the
  
negative.code: (defbinding widget-size-request
      (widget &optional (requisition (make-instance 'requisition))) nil
    (widget widget)
    (requisition requisition :in/return))
  
  (defbinding widget-get-child-requisition 
      (widget &optional (requisition (make-instance 'requisition))) nil
    (widget widget)
    (requisition requisition :in/return))
  
  (defbinding widget-size-allocate () nil
    (widget widget)
  