Sun Aug 2 13:29:13 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* Fix double space when printing a qt:object.
hunk ./src/object.lisp 42
- (print-unreadable-object (object stream :type t :identity t)
- (princ (cxx:object-name object) stream))))
+ (if (string= "" (cxx:object-name object))
+ (print-unreadable-object (object stream :type t :identity t))
+ (print-unreadable-object (object stream :type t :identity t)
+ (princ (cxx:object-name object) stream)))))
+
+(defmethod print-object ((object qt:meta-object) stream)
+ (if (or (not (slot-boundp object 'pointer))
+ (null-pointer-p (pointer object)))
+ (call-next-method)
+ (print-unreadable-object (object stream :type t :identity t)
+ (princ (cxx:class-name object) stream))))
hunk ./src/qstring.lisp 51
+(defmethod print-object ((object qt:byte-array) stream)
+ (if (null-pointer-p (pointer object))
+ (call-next-method)
+ (print-unreadable-object (object stream :type t :identity t)
+ (prin1 (cxx:data object) stream))))
+