Mon May 11 17:42:25 CEST 2009  Tobias Rautenkranz <tobias@rautenkranz.ch>
  * Test setf for "set[A-Z].*" methods.
diff -rN -u old-qt.tests/src/application.lisp new-qt.tests/src/application.lisp
--- old-qt.tests/src/application.lisp	2014-10-30 07:58:11.000000000 +0100
+++ new-qt.tests/src/application.lisp	2014-10-30 07:58:11.000000000 +0100
@@ -10,11 +10,11 @@
         (qt:with-core-app
           (5am:is (eql t (qt:app-p)))
           (5am:is (typep (qt:app) (find-class 'qt:core-application)))
-          (cxx:set-object-name (qt:app) "core-app")) ;; test for memfault
+          (setf (cxx:object-name (qt:app)) "core-app")) ;; test for memfault
         (qt:with-app
           (5am:is (eql t (qt:app-p)))
           (5am:is (typep (qt:app) (find-class 'qt:application)))
-          (cxx:set-object-name (qt:app) "app")))))
+          (setf (cxx:object-name (qt:app)) "app")))))
 ;    (5am:is (eql nil (qt:app-p)))))
 
 (5am:test application-nest
diff -rN -u old-qt.tests/src/qstring.lisp new-qt.tests/src/qstring.lisp
--- old-qt.tests/src/qstring.lisp	2014-10-30 07:58:11.000000000 +0100
+++ new-qt.tests/src/qstring.lisp	2014-10-30 07:58:11.000000000 +0100
@@ -10,7 +10,7 @@
                                               "FOO bar"
                                               (format nil "A~AB" #\Null)
                                               "öäüƧЪ")))
-      (cxx:set-object-name object string)
+      (setf (cxx:object-name object) string)
       (5am:is (string= string (cxx:object-name object))))))
 
 (5am:test (string-list :depends-on qstring)