+(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)))))
+