anchor.diff:  
   (defun terminate (session)
     (let ((stream (getf-session session :stream)))
  -    (delete-session (car session))
  +    (delete-session session)
       (when (and (streamp stream) (open-stream-p stream))
         (send-disconnect)
         (websocket-send-term)
  
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:          (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))
  