anchor.diff:  (defgeneric handle-line (client line)
     (:method ((client tcp-client) line)
       (format t "~A sez: ~A~%" client line)
  -    (setf (input (input-handler client)) line)
  -    (update (input-handler client))
  -
  -))
  +    (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)
  
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:                                 (lambda (&rest rest)
                                    (declare (ignore rest))
                                    (on-client-write client)))
            (init client))))))
  
  (defgeneric dispatch-events (service-provider)
    (:method ((sp tcp-service-provider))
  