anchor.diff:        (#_setFont quit font)
         (#_setFont shoot font)
         (#_setFont new-game font)
  -      (#_connect "QObject"
  -                 new-game
  -                 (QSIGNAL "clicked()")
  -                 instance
  -                 (QSLOT "newGame()"))
  -      (#_connect "QObject"
  -                 quit
  -                 (QSIGNAL "clicked()")
  -                 (#_QCoreApplication::instance)
  -                 (QSLOT "quit()"))
  +      (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))
  
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:       (new instance parent)
        (new instance))
    (setf (auto-shoot-timer instance) (#_new QTimer instance))
    (connect (auto-shoot-timer instance) "timeout()" instance "moveShot()")
    (with-objects ((col (#_new QColor 250 250 200))
                   (pal (#_new QPalette col)))
      (#_setPalette instance pal))
  