From b8579526c0f3224d90f3f2d471a4defce76ab4c0 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Renaud=20Casenave-P=C3=A9r=C3=A9?= <renaud@casenave-pere.fr>
Date: Tue, 30 Sep 2014 14:33:32 +0900
Subject: [PATCH] Always call the finalize function when returning from the
 main loop

---
 src/stoe.lisp | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/src/stoe.lisp b/src/stoe.lisp
index ed60152..02054ce 100644
--- a/src/stoe.lisp
+++ b/src/stoe.lisp
@@ -32,5 +32,6 @@ continue unless `unprotected' is t."
 (defun main (&optional argv)
   "Run the program."
   (modules:initialize argv)
-  (main-loop)
-  (modules:finalize))
+  (unwind-protect
+       (main-loop)
+    (modules:finalize)))