Mon May 11 21:50:13 CEST 2009 Tobias Rautenkranz <tobias@rautenkranz.ch>
* print-object qt:object object-name
hunk ./src/object.lisp 26
+(defmethod print-object ((object object) stream)
+ (if (null-pointer-p (pointer object))
+ (call-next-method)
+ (print-unreadable-object (object stream :type t :identity t)
+ (princ (cxx:object-name object) stream))))
+