anchor.diff:            (declare (ignore id handle-id endpoint data)) ; TODO
             (ecase (translate-message-type type)
               (:disconnect
  -             (log-message :debug "Client signalled termination"))
  -             (delete-session (car *session*)))
  +             (log-message :debug "Client signalled termination")
  +             (delete-session *session*))
               (:connect ; connect TODO
                (log-message :info "Client tried to connect to additional endpoint"))
               (:heartbeat
  
positive.code: 
  (defun terminate (session)
    (let ((stream (getf-session session :stream)))
      (delete-session (car session))
      (when (and (streamp stream) (open-stream-p stream))
        (send-disconnect)
        (websocket-send-term)
  
negative.code:          (uuid:uuid-to-byte-array uuid-1)
           (uuid:uuid-to-byte-array uuid-2)))
  
  (defun delete-session (session)
    (log-message :debug "Going to delete session ~a" (car session))
    (setq *sessions* (delete session *sessions* :test #'eq)))
  
  (defun uuid-session (uuid)
    (assoc uuid *sessions* :test #'uuid-equal-p))
  