anchor.diff:                   (equal message nil))
             return nil
           do (send-message message socket))
  -  (exit))
  +  (uiop:quit))
   
   
   (defun server-listener (socket)
  
positive.code: (defun server-broadcast (socket)
    "Call server-listener treating exceptional cases"
    (handler-case (server-listener socket)
      (end-of-file (e)
        (format t "~%Server down. ~%")
        (exit))
      (simple-error (e)
        (server-broadcast socket))))
  
  
  
negative.code: ;; better way for doing that.
  (defun receive-message (message)
    "Receive a message and print in the terminal carefully with IO race conditions"
    (with-lock-held (*io-lock*)
      (let ((line cl-readline:*line-buffer*)
            (prompt cl-readline:+prompt+))
        ;; erase
  