From: Olof-Joachim Frahm <Olof.Frahm@web.de>
Date: Sat, 25 Sep 2010 23:44:41 +0000 (+0200)
Subject: Merge branch 'master' of git://github.com/dmitryvk/cl-gtk2
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a18c5062955d60bcb84fbfb1300e0baf15a8f3a2;hp=b359521e9075871a0deaf33b1437ff0f4dd42060;p=cl-gtk2.git

Merge branch 'master' of git://github.com/dmitryvk/cl-gtk2
---

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