From 41a70c191877cc4673a3d86a09bdf146675371a4 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Tue, 2 Nov 2010 11:30:40 +0300 Subject: [PATCH] Do not try to set signal handler on SBCL/Win32 --- gtk/gtk.main_loop_events.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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)) -- 1.7.10.4