- [GUI] ensured cleaning of temporary files on exit.

2024-09-27 13:29:52 +02:00 · 2024-09-27 13:29:52 +02:00 · 3cc7da8184
parent 801128f442
commit 3cc7da8184
1 changed files with 2 additions and 0 deletions
--- a/src/gui/server/json-rpc-communication.lisp
+++ b/src/gui/server/json-rpc-communication.lisp
@ -71,4 +71,6 @@
        (error (e)
          (send-to-client (format nil (_ "Error: ~a~%") e))
          (setf *stop-server* t))))
+    (fs:clean-temporary-directories)
+    (fs:clean-temporary-files)
    (send-to-client "Bye!")))