From b8b6be84993178319789e864ae1d9f9f65c8e4c7 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sun, 12 Jul 2009 13:56:52 +0400 Subject: [PATCH] print-object method for g-class-property-definition --- glib/gobject.type-info.object.lisp | 14 ++++++++++++++ 1 file changed, 14 insertions(+) diff --git a/glib/gobject.type-info.object.lisp b/glib/gobject.type-info.object.lisp index 043bd23..166b006 100644 --- a/glib/gobject.type-info.object.lisp +++ b/glib/gobject.type-info.object.lisp @@ -22,6 +22,20 @@ See accessor functions: constructor-only owner-type) +(defmethod print-object ((instance g-class-property-definition) stream) + (if *print-readably* + (call-next-method) + (print-unreadable-object (instance stream) + (format stream + "PROPERTY ~A ~A.~A (flags:~@[ readable~]~@[ writable~]~@[ constructor~]~@[ constructor-only~])" + (g-class-property-definition-type instance) + (g-class-property-definition-owner-type instance) + (g-class-property-definition-name instance) + (g-class-property-definition-readable instance) + (g-class-property-definition-writable instance) + (g-class-property-definition-constructor instance) + (g-class-property-definition-constructor-only instance))))) + (setf (documentation 'g-class-property-definition-name 'function) "Name of GObject class property. See @class{g-class-property-definition}. @return{a string}") -- 1.7.10.4