Mon Jan 25 19:43:56 CET 2010  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Fix error reporting on signal-slot connection failure.
diff -rN -u old-qt.core/src/signal-slot/connect.lisp new-qt.core/src/signal-slot/connect.lisp
--- old-qt.core/src/signal-slot/connect.lisp	2014-10-22 13:59:41.000000000 +0200
+++ new-qt.core/src/signal-slot/connect.lisp	2014-10-22 13:59:41.000000000 +0200
@@ -115,20 +115,23 @@
   (unless (qt:object.connect (qsender qt-signal) (qt:qsignal (name qt-signal))
                           (receiver qt-slot) (qt:qslot (name qt-slot))
                           (or type  qt:+auto-connection+))
-    (cerror "Failed to connect ~A ~A to ~A ~A."
+    (cerror "Ignore"
+            "Failed to connect ~A ~A to ~A ~A."
             (qsender qt-signal) (name qt-signal)
             (receiver qt-slot) (name qt-slot))))
 
 (defmethod qt:disconnect ((qt-signal qt-signal) (qt-slot qt-slot))
   (unless (qt:object.disconnect (qsender qt-signal) (qt:qsignal (name qt-signal))
-                             (receiver qt-slot) (qt:qslot (name qt-slot)))
-    (cerror "Failed to disconnect ~A ~A from ~A ~A."
+                                (receiver qt-slot) (qt:qslot (name qt-slot)))
+    (cerror "Ignore"
+            "Failed to disconnect ~A ~A from ~A ~A."
             (receiver qt-slot) (name qt-slot)
             (qsender qt-signal) (name qt-signal))))
 
 (defmethod qt:disconnect-all ((sender qt:object))
   (unless (qt:object.disconnect sender 0 0 0)
-    (cerror "Failed to disconnect everything connected to ~A."
+    (cerror "Ignore"
+            "Failed to disconnect everything connected to ~A."
             sender)))