anchor.diff:                                  (lambda (&rest rest)
                                     (declare (ignore rest))
                                     (on-client-write client)))
  -          (write-to-client client (format nil "~&Hello. Welcome to Sykosomatic.~%"))
  -          (let ((next-handler (make-instance 'login-handler :client client)))
  -            (setf (input-handler client) next-handler)
  -            (init next-handler))
  -          client)))))
  +          (init client))))))
   
   (defgeneric dispatch-events (service-provider)
     (:method ((sp tcp-service-provider))
  
positive.code:              (write-to-client client text))
             (clients provider)))
  
  (defmethod update ((client tcp-client))
    (let ((input (read-line-from-client client)))
      (when input (handle-line client input))))
  
  ;;;
  ;;; TCP service
  
negative.code: (defgeneric handle-line (client line)
    (:method ((client tcp-client) line)
      (format t "~A sez: ~A~%" client line)
      (funcall (input-handler client) line)))
  
  (defun broadcast-to-room (client text)
    (maphash (lambda (k v)
               (declare (ignore k))
               (unless (eq client v)
                 (write-to-client v text)))
             (clients (service-provider client))))
  
  (defun broadcast-to-provider (provider text)
    (maphash (lambda (k client)
  