anchor.diff:        (new instance parent)
         (new instance))
     (setf (auto-shoot-timer instance) (#_new QTimer instance))
  -  (#_connect "QObject"
  -             (auto-shoot-timer instance)
  -             (QSIGNAL "timeout()")
  -             instance
  -             (QSLOT "moveShot()"))
  +  (connect (auto-shoot-timer instance) "timeout()" instance "moveShot()")
     (with-objects ((col (#_new QColor 250 250 200))
                    (pal (#_new QPalette col)))
       (#_setPalette instance pal))
  
positive.code:       (setf (slider instance) slider)
        (#_setRange slider 0 99)
        (#_setValue slider 0)
        (#_connect "QObject"
                    slider
                    (QSIGNAL "valueChanged(int)")
                    lcd
                    (QSLOT "display(int)"))
        (#_connect "QObject"
                    slider
                    (QSIGNAL "valueChanged(int)")
                    instance
                    (QSIGNAL "valueChanged(int)"))
        (let ((label (#_new QLabel)))
          (#_setSizePolicy label
                           (#_Preferred "QSizePolicy")
  
negative.code:         (setf (shots-left instance) shots-left)
          (#_setSegmentStyle hits (#_Filled "QLCDNumber"))
          (#_setSegmentStyle shots-left (#_Filled "QLCDNumber"))
          (connect shoot "clicked()" instance "fire()")
          (connect cf "hit()" instance "hit()")
          (connect cf "missed()" instance "missed()")
          (connect cf "canShoot(bool)" shoot "setEnabled(bool)")
          (set-range angle 5 70)
          (set-range force 10 50)
          (connect angle "valueChanged(int)" cf "setAngle(int)")
          (connect cf "angleChanged(int)" angle "setValue(int)")
          (connect force "valueChanged(int)" cf "setForce(int)")
          (connect cf "forceChanged(int)" force "setValue(int)")
          (let ((left-layout (#_new QVBoxLayout))
                (top-layout (#_new QHBoxLayout))
                (grid (#_new QGridLayout)))
  