anchor.diff:      (funcall (input-handler client) line)))
   
   (defun broadcast-to-room (client text)
  -  (maphash (lambda (k v)
  +  (maphash (lambda (k current-client)
                (declare (ignore k))
  -             (unless (eq client v)
  -               (write-to-client v text)))
  +             (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))
  -             (write-to-client client text))
  +             (princ text client))
              (clients provider)))
   
   (defmethod init ((client tcp-client))
  -  (write-to-client client (format nil "~&Hello. Welcome to Sykosomatic.~%"))
  +  (format client "~&Hello. Welcome to Sykosomatic.~%")
     (setf (input-handler client) (make-login-handler client)))
   
   (defmethod update ((client tcp-client))
  
positive.code:   (:method ((client tcp-client) input &aux (input (string-cleanup input)))
      (unless (zerop (length input))
        (cond ((string-equal input "look")
               (write-to-client client (format nil "You see a double rainbow all the way across the sky. So intense.~%")))
              ((string-equal input "quit")
               (disconnect client :close))
              (t
               (write-to-client client (format nil "You say, \"~A\"~%" input))
               (broadcast-to-room client
                                  (format nil "~A says, \"~A\"~%" (avatar client)
                                          input)))))))
  
negative.code: 
  (defgeneric make-login-handler (client)
    (:method ((client tcp-client))
      (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)))
        (format client "You are now logged in as ~A.~%" (avatar client))
        (setf (input-handler client)
              (make-gameplay-handler client)))))
  
  