Thu Jul 23 00:22:47 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Qt property names are symbols in the keyword package.
diff -rN -u old-qt.tests/src/gc.lisp new-qt.tests/src/gc.lisp
--- old-qt.tests/src/gc.lisp	2014-10-30 07:56:00.000000000 +0100
+++ new-qt.tests/src/gc.lisp	2014-10-30 07:56:00.000000000 +0100
@@ -3,7 +3,7 @@
 (5am:in-suite :qt.suite)
 
 ;;; The GC stuff depends on (gc :full t) to collect the consed objects.
-;;; Sometimes calling GC twice helps in sbcl.
+;;; Sometimes calling GC twice helps in SBCL.
 
 (defun test-gc (class)
   "Returns true when some instances of class get garbage collected
@@ -11,7 +11,7 @@
 It is not required that every instance is gc'ed, since this rarely happens
 and is not a bug."
   (let ((objects nil))
-    (dotimes (x 9)
+    (dotimes (x 10)
       (let ((object (make-instance class)))
         (push (make-weak-pointer object)
               objects)))
diff -rN -u old-qt.tests/src/properties.lisp new-qt.tests/src/properties.lisp
--- old-qt.tests/src/properties.lisp	2014-10-30 07:56:00.000000000 +0100
+++ new-qt.tests/src/properties.lisp	2014-10-30 07:56:00.000000000 +0100
@@ -11,10 +11,10 @@
   "Tests get and set property string"
   (let ((o (make-instance 'qt:object)))
     (5am:is (eql t (qt:property-p o "objectName")))
-    (5am:is (eql t (qt:property-p o 'object-name)))
+    (5am:is (eql t (qt:property-p o :object-name)))
 
-    (setf (qt:property o 'object-name) "fooBar")
-    (5am:is (string= (qt:property o 'object-name) "fooBar"))
+    (setf (qt:property o :object-name) "fooBar")
+    (5am:is (string= (qt:property o :object-name) "fooBar"))
     (5am:is (string= (qt:property o "objectName") "fooBar"))
     (5am:is (string= (cxx:object-name o) "fooBar"))