From b54601ff48d56c4dc124e0ef966579fb293bfbd1 Mon Sep 17 00:00:00 2001
From: cage <cage@invalid>
Date: Fri, 15 Apr 2022 12:38:38 +0200
Subject: [PATCH] - preventd program  to hang when  a file  is created or 
 deleted using   kami.

  When a file  was created and deleted and the  kami window was closed
  the program stopped responding if the  user tried to open a new kami
  address.
---
 src/kami/client.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/src/kami/client.lisp b/src/kami/client.lisp
index 2c7f882..bd5c664 100644
--- a/src/kami/client.lisp
+++ b/src/kami/client.lisp
@@ -193,6 +193,9 @@
 (defun generate-filesystem-window-handlers (path host port
                                             query fragment
                                             client-certificate client-key)
+  (setf 9p:*tag*           8)
+  (setf 9p:*fid*           1)
+  (setf 9p:*messages-sent* '())
   (with-open-ssl-stream (stream socket host port client-certificate client-key)
     (let* ((*stream*   stream)
            (*root-fid* (9p:mount *stream* "/")))