+(defbinding target-list-find (target-list target) boolean
+ (target-list target-list)
+ ((gdk:atom-intern target) gdk:atom)
+ (info unsigned-int :out))
+
+(defbinding target-table-new-from-list () (vector (inlined target-entry) n-targets)
+ (target-list target-list)
+ (n-targets int :out))
+
+(defun ensure-target-table (targets)
+ (etypecase targets
+ (target-list (target-table-new-from-list targets))
+ ((or vector list) targets)))