anchor.diff:    (prog1 (cl-readline:readline :prompt (format nil "[~A]: " username)
                                  :erase-empty-line t
                                  :add-history t)
  -    (with-mutex-held (*io-lock*)
  +    (with-lock-held (*io-lock*)
         (erase-last-line))))
   
   
  
positive.code: ;; better way for doing that.
  (defun receive-message (message)
    "Receive a message and print in the terminal carefully with IO race conditions"
    (with-mutex-held (*io-lock*)
      (let ((line cl-readline:*line-buffer*)
            (prompt cl-readline:+prompt+))
        ;; erase
  
negative.code:                  (equal message nil))
            return nil
          do (send-message message socket))
    (uiop:quit))
  
  
  (defun server-listener (socket)
  