`(t ,@forms)
`((equalp ,key ,value) ,@forms)))))))
`(t ,@forms)
`((equalp ,key ,value) ,@forms)))))))
-(defmethod parse-gvalue-for-type (gvalue-ptr type-numeric)
- (if (= type-numeric (g-type-numeric (g-type-fundamental type-numeric)))
+(defmethod parse-g-value-for-type (gvalue-ptr type-numeric parse-kind)
+ (if (g-type= type-numeric (g-type-fundamental type-numeric))
"Parses the GValue structure and returns the corresponding Lisp object.
@arg[value]{a C pointer to the GValue structure}
@return{value contained in the GValue structure. Type of value depends on GValue type}"
"Parses the GValue structure and returns the corresponding Lisp object.
@arg[value]{a C pointer to the GValue structure}
@return{value contained in the GValue structure. Type of value depends on GValue type}"
(fundamental-type (g-type-numeric (g-type-fundamental type))))
(ev-case fundamental-type
(+g-type-invalid+ (error "GValue is of invalid type (~A)" (g-type-name type)))
(fundamental-type (g-type-numeric (g-type-fundamental type))))
(ev-case fundamental-type
(+g-type-invalid+ (error "GValue is of invalid type (~A)" (g-type-name type)))
(+g-type-ulong+ (g-value-get-ulong gvalue))
(+g-type-int64+ (g-value-get-int64 gvalue))
(+g-type-uint64+ (g-value-get-uint64 gvalue))
(+g-type-ulong+ (g-value-get-ulong gvalue))
(+g-type-int64+ (g-value-get-int64 gvalue))
(+g-type-uint64+ (g-value-get-uint64 gvalue))
(+g-type-float+ (g-value-get-float gvalue))
(+g-type-double+ (g-value-get-double gvalue))
(+g-type-string+ (g-value-get-string gvalue))
(+g-type-float+ (g-value-get-float gvalue))
(+g-type-double+ (g-value-get-double gvalue))
(+g-type-string+ (g-value-get-string gvalue))
(parse-g-param-spec (g-value-get-param gvalue-ptr)))
(defgeneric set-gvalue-for-type (gvalue-ptr type-numeric value))
(defmethod set-gvalue-for-type (gvalue-ptr type-numeric value)
(parse-g-param-spec (g-value-get-param gvalue-ptr)))
(defgeneric set-gvalue-for-type (gvalue-ptr type-numeric value))
(defmethod set-gvalue-for-type (gvalue-ptr type-numeric value)
(convert-from-foreign (g-value-get-flags gvalue) flags-type)))
(defun set-gvalue-flags (gvalue value)
(convert-from-foreign (g-value-get-flags gvalue) flags-type)))
(defun set-gvalue-flags (gvalue value)