anchor.diff:              (log:error "Could not connect to platform port: ~a" (path (port interface)))
               (handler-case
                   (progn
  -                  (kill-program (port interface))
  +                  (kill-port (port interface))
                     (kill-interface interface))
                 (error (c) (format *error-output* "~a" c)))
               (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:      #+allegro excl:interrupt-signal
       () (progn
            (kill-interface *interface*)
            (kill-port (port *interface*))
            (format t "Bye!~&")
            (uiop:quit)))))
  
  