anchor.diff:      "QList<QVariant>" t
     () ("abc") ("" 123 "zzz" 456))
   
  -(deftest test-qobjectlist-marshalling
  -    (with-qapp
  -      (let ((a (#_new QObject))
  -            (b (#_new QPushButton "Def"))
  -            (c (#_new QLabel "zzz")))
  -        (#_setObjectName a "Abc")
  -        (flet ((extract (list)
  -                 (list
  -                  (#_objectName (first list))
  -                  (#_text (second list))
  -                  (#_text (third list)))))
  -          (extract (remarshal (list a b c) "QList<QObject*>" t)))))
  +(deftest/qt test-qobjectlist-marshalling
  +    (let ((a (#_new QObject))
  +          (b (#_new QPushButton "Def"))
  +          (c (#_new QLabel "zzz")))
  +      (#_setObjectName a "Abc")
  +      (flet ((extract (list)
  +               (list
  +                (#_objectName (first list))
  +                (#_text (second list))
  +                (#_text (third list)))))
  +        (extract (remarshal (list a b c) "QList<QObject*>" t))))
     ("Abc" "Def" "zzz"))
   
   (deftest test-item-model-stuff-marshalling
  -    (with-qapp
  -      (let ((model (#_new QStandardItemModel)))
  -        (#_appendRow model (list (#_new QStandardItem "01")
  -                                 (#_new QStandardItem "bca")))
  -        (#_appendRow model (list (#_new QStandardItem "02")
  -                                 (#_new QStandardItem "abc")))
  -        (#_appendRow model (list (#_new QStandardItem "03")
  -                                 (#_new QStandardItem "bcq")))
  -        (values
  -          (iter (for item in (remarshal (list (#_new QStandardItem "zz")
  -                                              (#_new QStandardItem "rr"))
  -                                        "QList<QStandardItem*>"))
  -                (collect (#_text item)))
  -          (iter (for i from 0 to 2)
  -                (collect (cons (#_data model (#_index model i 0))
  -                               (#_data model (#_index model i 1)))))
  -          (iter (for index in (#_match model (#_index model 0 1)
  -                                       (#_Qt::DisplayRole) "bc" -1))
  -                (collect (cons (#_row index) (#_column index))))
  -          (iter (for index in (remarshal (#_match model (#_index model 0 1)
  -                                                  (#_Qt::DisplayRole) "bc" -1)
  -                                         "QList<QModelIndex>"))
  -                (collect (cons (#_row index) (#_column index)))))))
  +    (let ((model (#_new QStandardItemModel)))
  +      (#_appendRow model (list (#_new QStandardItem "01")
  +                               (#_new QStandardItem "bca")))
  +      (#_appendRow model (list (#_new QStandardItem "02")
  +                               (#_new QStandardItem "abc")))
  +      (#_appendRow model (list (#_new QStandardItem "03")
  +                               (#_new QStandardItem "bcq")))
  +      (values
  +        (iter (for item in (remarshal (list (#_new QStandardItem "zz")
  +                                            (#_new QStandardItem "rr"))
  +                                      "QList<QStandardItem*>"))
  +              (collect (#_text item)))
  +        (iter (for i from 0 to 2)
  +              (collect (cons (#_data model (#_index model i 0))
  +                             (#_data model (#_index model i 1)))))
  +        (iter (for index in (#_match model (#_index model 0 1)
  +                                     (#_Qt::DisplayRole) "bc" -1))
  +              (collect (cons (#_row index) (#_column index))))
  +        (iter (for index in (remarshal (#_match model (#_index model 0 1)
  +                                                (#_Qt::DisplayRole) "bc" -1)
  +                                       "QList<QModelIndex>"))
  +              (collect (cons (#_row index) (#_column index))))))
     ("zz" "rr") (("01" . "bca") ("02" . "abc") ("03" . "bcq"))
     ((0 . 1) (2 . 1)) ((0 . 1) (2 . 1)))
   
  
positive.code:   `(let ((qapp (ensure-qapplication)))
       (declare (ignorable qapp))
       ,@body))
  
  (let ((bad (cons nil nil)))
    (defun remarshal (value type &optional with-const-p)
  
negative.code:         result))))
  
  (defmacro define-marshalling-test (name type with-const-p &rest values)
    `(deftest/qt ,name
         (values ,@(iter (for val in values)
                         (collect `(remarshal ',val ,type ,with-const-p))))
       ,@values))
  
  (define-marshalling-test test-qbytearray-marshalling
  