Sun Apr 12 16:45:00 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Update to overload by argument count & trick garbage collection in 5am test.
diff -rN -u old-qt.tests/src/overload.lisp new-qt.tests/src/overload.lisp
--- old-qt.tests/src/overload.lisp	2014-10-11 08:46:25.000000000 +0200
+++ new-qt.tests/src/overload.lisp	2014-10-11 08:46:25.000000000 +0200
@@ -6,9 +6,7 @@
   ((counter :accessor counter :initform 0))
   (:metaclass smoke::smoke-wrapper-class))
 
-(defmethod cxx:timer-event ((object my-object) &rest args)
-  (declare (ignore args))
-  (format t "TIME~%")
+(defmethod cxx:timer-event ((object my-object))
   (incf (counter object)))
   
 
diff -rN -u old-qt.tests/src/signal-slot.lisp new-qt.tests/src/signal-slot.lisp
--- old-qt.tests/src/signal-slot.lisp	2014-10-11 08:46:25.000000000 +0200
+++ new-qt.tests/src/signal-slot.lisp	2014-10-11 08:46:25.000000000 +0200
@@ -110,15 +110,16 @@
     (qt:connect (qt:get-signal object "destroyed()")
                 #'(lambda () (setf *destroyed* t)))
     (tg:gc :full t)
-    (5am:is (eql nil *destroyed*)))
+    (5am:is (eq nil *destroyed*)))
   (tg:gc :full t))
 
 (5am:test (destroyed-signal :depends-on gc-qobject)
   "Receive a destroy signal for a QObject."
   (setf *destroyed* nil)
-  (test-destroyed-signal)
+  (eval '(test-destroyed-signal)) ;; FIXME eval somehow makes gc in 5am work!?
+  (eval '(tg:gc :full t))
   (tg:gc :full t)
-  (5am:is (eql t *destroyed*)))
+  (5am:is (eq t *destroyed*)))
 
 (5am:test int-signal
   "Receive a int signal."