anchor.diff:             (t (error 'authentication-error :command op :argument arg)))
            (send :begin)
            (go authenticated)
  -       authenticated
  -         (setf (connection-server-uuid connection) arg))))
  +       authenticated)))
     t)
   
   
positive.code:               (:error (if arg (send :error arg) (send :error)) (go waiting-for-data))))
             (:rejected (go initial))
             (:error (send :cancel) (go waiting-for-reject))
             (:ok (go negotiate-unix-fd-passing))
             (t (send :error) (go waiting-for-data)))
         waiting-for-ok
           (multiple-value-setq (op arg) (receive))
           (case op
             (:ok (go negotiate-unix-fd-passing))
             (:reject (go initial))
             ((:data :error) (send :cancel) (go waiting-for-reject))
             (t (send :error) (go waiting-for-ok)))
  
negative.code:          (case op
             (:reject (go initial))
             (t (error 'authentication-error :command op :argument arg)))
         got-ok
           (setf (connection-server-uuid connection) arg)
           (send :negotiate-unix-fd)
           (go wait-for-unix-fd-passing-agreement)
         wait-for-unix-fd-passing-agreement
  