anchor.diff:    ((length targets) int))
     
   (defmethod initialize-instance ((target-list target-list) &key targets)
  -  (setf  
  -   (slot-value target-list 'location) 
  +  (setf
  +   (slot-value target-list 'location)
      (%target-list-new targets))
     (call-next-method))
   
  -(defbinding target-list-add (target-list targets &optional flags info) nil
  +(defbinding target-list-add (target-list target &optional flags info) nil
     (target-list target-list)
     (target gdk:atom)
     (flags unsigned-int)
  
positive.code: (defbinding selection-data-targets-include-text-p (selection-data) boolean
    (selection-data selection-data))
  
  (defbinding selection-remove-all (selection-data) boolean
    (widget widget))
  
  
  
negative.code: ;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
  ;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
  
  ;; $Id: gtkselection.lisp,v 1.3 2006-02-08 21:58:49 espen Exp $
  
  
  (in-package "GTK")
  