From 957c015c36bacb3b4e29fd55505dda4309dcbc4c Mon Sep 17 00:00:00 2001
From: Solene Rapenne <solene@perso.pw>
Date: Wed, 24 Oct 2018 07:33:31 +0200
Subject: [PATCH] Trap Ctrl+C in ecl

---
 functions.lisp | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/functions.lisp b/functions.lisp
index 9b5dc3a..74d4206 100644
--- a/functions.lisp
+++ b/functions.lisp
@@ -138,3 +138,6 @@
                                         :if-exists :supersede)
               (format stream-out "~a~%~a~%" (+ 1 tries) params))
             nil)))))
+
+#+ecl
+(ext:set-signal-handler ext:+sigint+ nil)