anchor.diff:      (format client "~&Please enter your name: ")
       (lambda (input &aux (input (string-cleanup input)))
         (setf (avatar client) input)
  -      (broadcast-to-room client (format nil "~A enters the world.~%" (avatar client)))
  +      (broadcast-to-room client "~A enters the world.~%" (avatar client))
         (format client "You are now logged in as ~A.~%" (avatar client))
         (setf (input-handler client)
               (make-gameplay-handler client)))))
  
positive.code: 
  (defmethod teardown ((client tcp-client))
    (close (socket client))
    (broadcast-to-provider (service-provider client) (format nil "~A leaves the world.~%" (avatar client)))
    (format t "~&~A Disconnected.~%" client)
    (detach-client (service-provider client) client)
    client)
  
negative.code:              (disconnect client :close))
              (t
               (format client "You say, \"~A\"~%" input)
               (broadcast-to-room client  "~A says, \"~A\"~%" (avatar client) input))))))
  