anchor.diff:       #+allegro excl:interrupt-signal
        () (progn
             (kill-interface *interface*)
  -          (kill-program (port *interface*))
  +          (kill-port (port *interface*))
             (format t "Bye!~&")
             (uiop:quit)))))
   
  
positive.code: (define-command quit ()
    "Quit Next."
    (kill-interface *interface*)
    (kill-program (port *interface*)))
  
  (define-deprecated-command kill ()
    "Deprecated by `quit'."
  
negative.code:             (log:error "Could not connect to platform port: ~a" (path (port interface)))
              (handler-case
                  (progn
                    (kill-port (port interface))
                    (kill-interface interface))
                (error (c) (format *error-output* "~a" c)))
              (uiop:quit))))))
  