anchor.diff:  (defun server-broadcast (socket)
     "Call server-listener treating exceptional cases"
     (handler-case (server-listener socket)
  -    (end-of-file (e)
  +    (end-of-file ()
         (format t "~%Server down. ~%")
  -      (exit))
  -    (simple-error (e)
  +      (uiop:quit 1))
  +    (simple-error ()
         (server-broadcast socket))))
   
   
  
positive.code:   (prog1 (cl-readline:readline :prompt (format nil "[~A]: " username)
                                 :erase-empty-line t
                                 :add-history t)
      (with-mutex-held (*io-lock*)
        (erase-last-line))))
  
  
  
negative.code:                  (equal message nil))
            return nil
          do (send-message message socket))
    (uiop:quit))
  
  
  (defun server-listener (socket)
  