- [GUI] added comment about race condition;

- [GUI] adde name to each thread spawned.

src/gui/client/main-window.lisp

@@ -236,7 +236,8 @@
                                                                  :aborting-function
                                                                  #'aborting-function
                                                                  :ignore-certificate-expiration
-                                                                 ignore-certificate-expiration)))))
+                                                                 ignore-certificate-expiration))
+                                          :name "stream thread")))
           (setf (fetching-thread stream-wrapper) stream-thread)
           stream-wrapper)))))
 
@@ -1170,6 +1171,12 @@ local file paths."
           ((or (gemini-parser:gemini-iri-p actual-iri)
                needs-proxy)
            (let ((stream-frame (stream-frame main-window)))
+             ;; note: keeps  this call before  'start-stream-iri', the
+             ;; latter   will   recursively  call   'open-iri'   (this
+             ;; function) if a redirect is  met, and the procedures to
+             ;; delete and  repopulate stream frames  gets interleaved
+             ;; in     nodgui,      I     have      to     investigate
+             ;; why.
              (client-stream-frame::refresh-all-streams
               (client-stream-frame::table stream-frame))
              (start-stream-iri (iri-ensure-path actual-iri)

src/gui/client/program-events.lisp

@@ -25,7 +25,8 @@
         (make-thread (lambda ()
                           (let ((gui:*wish* gui-goodies:*gui-server*))
                             (loop while (events-loop-running-p) do
-                              (ev:dispatch-program-events-or-wait)))))))
+                              (ev:dispatch-program-events-or-wait))))
+                     :name "GUI events loop")))
 
 (defmacro with-enqueue-request ((method-name id &rest args) &body on-error)
   `(ev:with-enqueued-process-and-unblock ()

src/gui/client/stream-frame.lisp

@@ -25,7 +25,8 @@
                                                           :text  iri
                                                           :column-values
                                                           (list stream-status
-                                                                (to-s (getf row :octet-count)))
+                                                                (to-s (getf row
+                                                                            :octet-count)))
                                                           :index gui:+treeview-last-index+)))
         (gui:treeview-insert-item tree :item tree-row)))
     (gui:treeview-refit-columns-width (gui-goodies:tree stream-table))