+
+(defbinding type-default-interface-ref (type) pointer
+ ((find-type-number type t) type-number))
+
+(defbinding type-default-interface-unref (type) nil
+ ((find-type-number type t) type-number))
+
+(defbinding type-default-interface-peek (type) pointer
+ ((find-type-number type t) type-number))
+
+(defbinding %object-interface-list-properties () pointer
+ (iface pointer)
+ (n-properties unsigned-int :out))
+
+(defun query-object-interface-properties (type &optional inherited-p)
+ (let* ((type-number (find-type-number type))
+ (iface (type-default-interface-ref type-number)))
+ (unwind-protect
+ (multiple-value-bind (array length)
+ (%object-interface-list-properties iface)
+ (unwind-protect
+ (%map-params array length type-number inherited-p)
+ (deallocate-memory array)))
+; (type-default-interface-unref type-number)
+ )))
+
+
+(defun expand-ginterface-type (type options &rest args)