Mon May 11 21:50:13 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * print-object qt:object object-name
diff -rN -u old-qt.core/src/object.lisp new-qt.core/src/object.lisp
--- old-qt.core/src/object.lisp	2014-11-16 03:13:52.000000000 +0100
+++ new-qt.core/src/object.lisp	2014-11-16 03:13:52.000000000 +0100
@@ -23,6 +23,12 @@
               (sort (class-slots class) #'string<=))
       (call-next-method)))
 
+(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))))
+
 (defun meta-object-methods (meta-object &optional (direct-only nil))
   (loop for index from (if direct-only (cxx:method-offset meta-object) 0)
      below (cxx:method-count meta-object)