From ef70f68bf94aef914ade45fe951e554edb0e7279 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Tue, 12 Jan 2010 13:46:16 +0300 Subject: [PATCH] Wrap gtk-main in Gdk threads lock in unithreaded lisps too --- gtk/gtk.main_loop_events.lisp | 5 ----- 1 file changed, 5 deletions(-) diff --git a/gtk/gtk.main_loop_events.lisp b/gtk/gtk.main_loop_events.lisp index b26f147..6b5b9eb 100644 --- a/gtk/gtk.main_loop_events.lisp +++ b/gtk/gtk.main_loop_events.lisp @@ -21,14 +21,9 @@ (defcfun (%gtk-main "gtk_main") :void) -#+thread-support (defun gtk-main () (with-gdk-threads-lock (%gtk-main))) -#-thread-support -(defun gtk-main () - (%gtk-main)) - #+thread-support (defvar *main-thread* nil) -- 1.7.10.4