From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Tue, 2 Nov 2010 08:30:40 +0000 (+0300)
Subject: Do not try to set signal handler on SBCL/Win32
X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-gtk2.git;a=commitdiff_plain;h=41a70c191877cc4673a3d86a09bdf146675371a4

Do not try to set signal handler on SBCL/Win32
---

diff --git a/gtk/gtk.main_loop_events.lisp b/gtk/gtk.main_loop_events.lisp
index 909967c..d3abfde 100644
--- a/gtk/gtk.main_loop_events.lisp
+++ b/gtk/gtk.main_loop_events.lisp
@@ -7,7 +7,7 @@
 (defun gtk-init ()
   (gtk-init-check (foreign-alloc :int :initial-element 0)
                   (foreign-alloc :string :initial-contents '("/usr/bin/sbcl")))
-  #+sbcl
+  #+ (and sbcl (not win32))
   (sb-unix::enable-interrupt sb-unix:sigpipe #'sb-unix::sigpipe-handler)
   #+nil(with-foreign-objects ((argc :int)
                          (argv '(:pointer :string) 1))