Sat Feb 20 18:23:58 CET 2010  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Fix analog-clock timer interval
diff -rN -u old-qt.examples/src/qt/analog-clock.lisp new-qt.examples/src/qt/analog-clock.lisp
--- old-qt.examples/src/qt/analog-clock.lisp	2014-10-30 07:35:37.000000000 +0100
+++ new-qt.examples/src/qt/analog-clock.lisp	2014-10-30 07:35:38.000000000 +0100
@@ -47,7 +47,7 @@
   (let ((timer (make-instance 'qt:timer :arg0 clock)))
     (qt:connect (qt:get-signal timer "timeout()")
                 (qt:get-slot clock "update()"))
-    (cxx:start timer))
+    (cxx:start timer 1000))
   (setf (cxx:window-title clock) "Analog Clock")
   (cxx:resize clock 200 200))