anchor.diff:  
   
   
  -;;;; Parameter stuff
  +;;;; Property stuff
   
   (defbinding %object-set-property () nil
     (object gobject)
  
positive.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: gobject.lisp,v 1.8 2001-05-29 15:50:31 espen Exp $
  
  (in-package "GLIB")
  
  
negative.code: 	       (funcall
  		(intern-writer-function type)
  		value gvalue +gvalue-value-offset+)
  	       (%object-set-property object pname gvalue)
  	       (funcall
  		(intern-destroy-function type)
  		gvalue +gvalue-value-offset+)
  