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:                                 :write
                                  (lambda (&rest rest)
                                    (declare (ignore rest))
                                    (on-client-write client))))))))
  
  (defgeneric dispatch-events (service-provider)
    (:method ((sp tcp-service-provider))
  
negative.code: 
  ;; tcp-service-provider.lisp
  ;;
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (in-package :sykosomatic)
  
  