- (let ((pointer (create-gobject-from-class-and-initargs class initargs)))
- (apply #'call-next-method class :pointer pointer initargs))))
+ (multiple-value-bind (pointer rest-initargs)
+ (create-gobject-from-class-and-initargs class initargs)
+ (declare (dynamic-extent rest-initargs))
+ (apply #'call-next-method class :pointer pointer rest-initargs))))