X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.main-loop-events.lisp;h=7089353951a82dc1af7ef13c69646954d6ce37a3;hb=f4a3bfdc9f0e05521f936cf32fed6575d3f37a96;hp=1a345327de7aa58c8dbdcb0016d57cfea8afae83;hpb=5fe17678137c04ece910ae65a35ee58a0c7761c7;p=cl-gtk2.git

diff --git a/gtk/gtk.main-loop-events.lisp b/gtk/gtk.main-loop-events.lisp
index 1a34532..7089353 100644
--- a/gtk/gtk.main-loop-events.lisp
+++ b/gtk/gtk.main-loop-events.lisp
@@ -2,6 +2,10 @@
 
 ; TODO: gtk_get_default_language
 
+(defcfun gtk-events-pending :boolean)
+
+(export 'gtk-events-pending)
+
 (defcfun gtk-main-iteration :boolean)
 
 (export 'gtk-main-iteration)