anchor.diff:  
   ;;;; Cell Renderer
   
  -(defmethod compute-signal-function ((gobject cell-renderer-toggle) (signal (eql 'toggled)) function object)
  -  (declare (ignore gobject signal function object))
  +(defmethod compute-signal-function ((gobject cell-renderer-toggle) (signal (eql 'toggled)) function object args)
  +  (declare (ignore gobject signal function object args))
     (let ((function (call-next-method)))
       #'(lambda (object path)
   	(funcall function object (ensure-tree-path path)))))
  
positive.code: (defmethod tree-model-column-name ((model tree-model) index)
    (svref (user-data model 'column-names) index))
  
  
  (defgeneric (setf tree-model-value) (value model row column))
  
  (defgeneric (setf tree-model-row-data) (data model row))
  
  (defmethod (setf tree-model-row-data) ((data list) (model tree-model) (iter tree-iter))
    (loop
  
negative.code:   (iter tree-iter)
    (new-order int))
  
  (defmethod tree-model-column-index ((model tree-model) column)
    (or
     (etypecase column
  