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 handle-disconnect (reply session-id)
    (let* ((uuid (make-uuid-from-string session-id))
           (uuid-session (car (assoc uuid *sessions* :test #'uuid-equal-p))))
      (if uuid-session
          (delete-session uuid-session)
          (setf (return-code reply) +http-internal-server-error+))))
  
  (defun path-info* (&optional (request *request*))
  
negative.code: 
  (defun terminate (session)
    (let ((stream (getf-session session :stream)))
      (delete-session session)
      (when (and (streamp stream) (open-stream-p stream))
        (send-disconnect)
        (websocket-send-term)
  