anchor.diff:               (disconnect client :close))
               (t
                (format client "You say, \"~A\"~%" input)
  -             (broadcast-to-room client
  -                                (format nil "~A says, \"~A\"~%" (avatar client)
  -                                        input)))))))
  +             (broadcast-to-room client  "~A says, \"~A\"~%" (avatar client) input))))))
  
positive.code:     (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)))))
  
negative.code:     (format t "~A sez: ~A~%" client line)
      (funcall (input-handler client) line)))
  
  (defun broadcast-to-room (client format-string &rest format-args)
    (let ((text (apply #'format nil format-string format-args)))
      (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 format-string &rest format-args)
    (let ((text (apply #'format nil format-string format-args)))
      (maphash (lambda (k client)
                 (declare (ignore k))
                 (princ text client))
               (clients provider))))
  
  (defmethod init ((client tcp-client))
    (format client "~&Hello. Welcome to Sykosomatic.~%")
  