fix unwind-protect/safe

lmj · Mar 6, 2013 · f7b1fdc · f7b1fdc
1 parent 7ed4f46
commit f7b1fdc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/lfarm-common/unwind-protect.lisp b/lfarm-common/unwind-protect.lisp
@@ -95,7 +95,7 @@
                            (setf ,finishedp t)))
                     (when (not ,finishedp)
                       ,abort))))
-              (main main)
+              (main `(with-interrupts ,main))
               (cleanup `(progn ,cleanup nil))
               (abort nil)
               (t nil)))))