anchor.diff:  
   (defmethod teardown ((client tcp-client))
     (close (socket client))
  -  (broadcast-to-provider (service-provider client) (format nil "~A leaves the world.~%" (avatar client)))
  +  (broadcast-to-provider (service-provider client) "~A leaves the world.~%" (avatar client))
     (format t "~&~A Disconnected.~%" client)
     (detach-client (service-provider client) client)
     client)
  
positive.code:     (format t "~A sez: ~A~%" client line)
      (funcall (input-handler client) line)))
  
  (defun broadcast-to-room (client text)
    (maphash (lambda (k current-client)
               (declare (ignore k))
               (unless (eq client current-client)
                 (princ text current-client)))
             (clients (service-provider client))))
  
  (defun broadcast-to-provider (provider text)
    (maphash (lambda (k client)
               (declare (ignore k))
               (princ text client))
             (clients provider)))
  
  (defmethod init ((client tcp-client))
    (format client "~&Hello. Welcome to Sykosomatic.~%")
  
negative.code:     (format client "~&Please enter your name: ")
      (lambda (input &aux (input (string-cleanup input)))
        (setf (avatar client) input)
        (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)))))
  