anchor.diff:  
   (defun handle-disconnect (reply session-id)
     (let* ((uuid (make-uuid-from-string session-id))
  -         (uuid-session (car (assoc uuid *sessions* :test #'uuid-equal-p))))
  +         (session (uuid-session uuid)))
       (if uuid-session
  -        (delete-session uuid-session)
  +        (delete-session session)
           (setf (return-code reply) +http-internal-server-error+))))
   
   (defun path-info* (&optional (request *request*))
  
positive.code:          (uuid:uuid-to-byte-array uuid-1)
           (uuid:uuid-to-byte-array uuid-2)))
  
  (defun delete-session (uuid)
    (log-message :debug "Going to delete session ~a" uuid)
    (setq *sessions* (delete uuid *sessions* :test #'eq :key #'car)))
  
  (defun uuid-session (uuid)
    (assoc uuid *sessions* :test #'uuid-equal-p))
  
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)
  