From c1794d9c3843906eb05c3d528c8bbdb5a31fc011 Mon Sep 17 00:00:00 2001
From: Juan Jose Garcia Ripoll <jjgarcia@users.sourceforge.net>
Date: Wed, 15 Aug 2012 20:02:18 +0200
Subject: [PATCH] No need to save errno in fpe_signal_handler because this
 handler does not return.

---
 src/c/unixint.d | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/c/unixint.d b/src/c/unixint.d
index 47509a294..a782397d9 100644
--- a/src/c/unixint.d
+++ b/src/c/unixint.d
@@ -607,8 +607,8 @@ handler_fn_prototype(process_interrupt_handler, int sig, siginfo_t *siginfo, voi
 static void
 handler_fn_prototype(fpe_signal_handler, int sig, siginfo_t *info, void *data)
 {
+        int code;
 	cl_object condition;
-        int code, old_errno = errno;
 	cl_env_ptr the_env;
 	reinstall_signal(sig, fpe_signal_handler);
         /* The lisp environment might not be installed. */