projects
/
cl-gtk2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Since Gtk+-2.18 "helpfully" ignores SIGPIPE in gtk_init, reinstall handler
[cl-gtk2.git]
/
gtk
/
gtk.main_loop_events.lisp
diff --git
a/gtk/gtk.main_loop_events.lisp
b/gtk/gtk.main_loop_events.lisp
index
244a7d7
..
909967c
100644
(file)
--- 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")))
(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
#+nil(with-foreign-objects ((argc :int)
(argv '(:pointer :string) 1))
(setf (mem-ref argc :int) 0