+(defun parse-g-param-spec (param)
+ (let ((flags (foreign-slot-value param 'g-param-spec 'flags)))
+ (make-g-class-property-definition
+ :name (foreign-slot-value param 'g-param-spec
+ 'name)
+ :type (foreign-slot-value param 'g-param-spec
+ 'value-type)
+ :readable (not (null (member :readable flags)))
+ :writable (not (null (member :writable flags)))
+ :constructor (not (null (member :construct flags)))
+ :constructor-only (not (null (member :construct-only flags)))
+ :owner-type (foreign-slot-value param 'g-param-spec
+ 'owner-type))))
+