Trap Ctrl+C in ecl

2018-10-24 07:33:31 +02:00 · 2018-10-24 07:33:31 +02:00 · 957c015c36
parent ae4e9ea4a3
commit 957c015c36
1 changed files with 3 additions and 0 deletions
--- 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)