anchor.diff:          (setf (shots-left instance) shots-left)
           (#_setSegmentStyle hits (#_Filled "QLCDNumber"))
           (#_setSegmentStyle shots-left (#_Filled "QLCDNumber"))
  -        (#_connect "QObject"
  -                   shoot
  -                   (QSIGNAL "clicked()")
  -                   instance
  -                   (QSLOT "fire()"))
  -        (#_connect "QObject"
  -                   cf
  -                   (QSIGNAL "hit()")
  -                   instance
  -                   (QSLOT "hit()"))
  -        (#_connect "QObject"
  -                   cf
  -                   (QSIGNAL "missed()")
  -                   instance
  -                   (QSLOT "missed()"))
  -        (#_connect "QObject"
  -                   cf
  -                   (QSIGNAL "canShoot(bool)")
  -                   shoot
  -                   (QSLOT "setEnabled(bool)"))
  +        (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 "QObject"
  -                   angle
  -                   (QSIGNAL "valueChanged(int)")
  -                   cf
  -                   (QSLOT "setAngle(int)"))
  -        (#_connect "QObject"
  -                   cf
  -                   (QSIGNAL "angleChanged(int)")
  -                   angle
  -                   (QSLOT "setValue(int)"))
  -        (#_connect "QObject"
  -                   force
  -                   (QSIGNAL "valueChanged(int)")
  -                   cf
  -                   (QSLOT "setForce(int)"))
  -        (#_connect "QObject"
  -                   cf
  -                   (QSIGNAL "forceChanged(int)")
  -                   force
  -                   (QSLOT "setValue(int)"))
  +        (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)))
  
positive.code:       (new instance parent)
        (new instance))
    (setf (auto-shoot-timer instance) (#_new QTimer instance))
    (#_connect "QObject"
               (auto-shoot-timer instance)
               (QSIGNAL "timeout()")
               instance
               (QSLOT "moveShot()"))
    (with-objects ((col (#_new QColor 250 250 200))
                   (pal (#_new QPalette col)))
      (#_setPalette instance pal))
  
negative.code:       (#_setFont quit font)
        (#_setFont shoot font)
        (#_setFont new-game font)
        (connect new-game "clicked()" instance "newGame()")
        (connect quit "clicked()" *qapplication* "quit()")
        (let ((angle (make-instance 'lcd-range :text "ANGLE"))
              (force (make-instance 'lcd-range :text "FORCE"))
              (hits (#_new QLCDNumber 2))
  