From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sun, 12 Jul 2009 09:56:52 +0000 (+0400)
Subject: print-object method for g-class-property-definition
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=b8b6be84993178319789e864ae1d9f9f65c8e4c7;p=cl-gtk2.git

print-object method for g-class-property-definition
---

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}")