anchor.diff:  
   ;; tcp-service-provider.lisp
   ;;
  -;; Implements the service-provider API using a single-threaded asynchronous TCP server.
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
   (in-package :sykosomatic)
   
  
positive.code: ;;;
  
  (defclass tcp-client ()
    ((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."))
  
negative.code:                                             :element-type '(unsigned-byte 8)))))
  
  (defmethod print-object ((client tcp-client) s)
    (print-unreadable-object (client s :type t)
      (format s "~A:~A" (remote-name client) (port client))))
  
  (defgeneric disconnect (client &rest events)
  