[nongnu] elpa/sly bc694914a7 2/2: Per #596: Robustify INT signal handling for Lispworks

[ELPA Syncer]

branch: elpa/sly
commit bc694914a733fe9cb38406637df47d015a1227a1
Author: Kamil Shakirov <kamils80@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Per #596: Robustify INT signal handling for Lispworks
    
    * slynk/backend/lispworks.lisp (set-sigint-handler)
    (install-sigint-handler): Use SYS::UNIX-SIGINT.
---
 slynk/backend/lispworks.lisp | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/slynk/backend/lispworks.lisp b/slynk/backend/lispworks.lisp
index 5c6013bc54..ed552ff26a 100644
--- a/slynk/backend/lispworks.lisp
+++ b/slynk/backend/lispworks.lisp
@@ -181,12 +181,12 @@
 (defun set-sigint-handler ()
   ;; Set SIGINT handler on Slynk request handler thread.
   #-win32
-  (sys::set-signal-handler +sigint+ 
+  (sys::set-signal-handler sys::unix-sigint
                            (make-sigint-handler mp:*current-process*)))
 
-#-win32 
+#-win32
 (defimplementation install-sigint-handler (handler)
-  (sys::set-signal-handler +sigint+
+  (sys::set-signal-handler sys::unix-sigint
                            (let ((self mp:*current-process*))
                              (lambda (&rest args)
                                (declare (ignore args))