anchor.diff:                                              :element-type '(unsigned-byte 8)))))
   
   (defmethod print-object ((client tcp-client) s)
  -  (print-unreadable-object (client s :type t :identity t)
  +  (print-unreadable-object (client s :type t)
       (format s "~A:~A" (remote-name client) (port client))))
   
   (defgeneric disconnect (client &rest events)
  
positive.code: 
  ;; tcp-service-provider.lisp
  ;;
  ;; Implements the service-provider API using a single-threaded asynchronous TCP server.
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (in-package :sykosomatic)
  
  
negative.code: ;;;
  
  (defclass tcp-client ()
    ((account :initform nil :accessor account)
     (avatar :initform nil :accessor avatar)
     (socket :accessor socket :initarg :socket
             :initform (error "Must provide a socket for this client."))
     (service-provider :accessor service-provider :initarg :provider
                       :initform (error "Must provide a provider for this client."))
  