X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.main_loop_events.lisp;fp=gtk%2Fgtk.main_loop_events.lisp;h=4bac7204e250eb7c28526b5a1eb093a0a41ab690;hb=074a6bd691acf2adf73cab8ef434a056c927b33b;hp=909967c4687a4dad3dabe147017bba28d5447343;hpb=609ddfbcf5dba1726580af49786c2f77b7a99305;p=cl-gtk2.git

diff --git a/gtk/gtk.main_loop_events.lisp b/gtk/gtk.main_loop_events.lisp
index 909967c..4bac720 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))
@@ -84,4 +84,4 @@
 (defcfun gtk-grab-get-current g-object)
 
 (defcfun gtk-grab-remove :void
-  (widget g-object))
\ No newline at end of file
+  (widget g-object))