Typo fix

diff --git a/gtk/gtk.main-loop-events.lisp b/gtk/gtk.main-loop-events.lisp
index 7089353..e3d910f 100644 (file)
--- a/gtk/gtk.main-loop-events.lisp
+++ b/gtk/gtk.main-loop-events.lisp
@@ -17,7 +17,7 @@
 
 ; TODO: gtk_main_do_event
 
-(defcfun (grad-add "gtk_grab_add") :void
+(defcfun (grab-add "gtk_grab_add") :void
   (widget g-object))
 
 (export 'grab-add)