diff --git a/src/gui/server/json-rpc-communication.lisp b/src/gui/server/json-rpc-communication.lisp index 20bb214..2b906cb 100644 --- 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!")))