+This example shows the use of @code{:already-referenced} option:
+@lisp
+(defcfun (widget-create-pango-layout "gtk_widget_create_pango_layout") (g-object gdk::pango-layout :already-referenced)
+ (widget (g-object widget))
+ (text :string))
+
+(defcfun gdk-gc-new (g-object graphics-context :already-referenced)
+ (drawable (g-object drawable)))
+@end lisp
+