X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=gtk%2Fgtk.clipboard.lisp;h=9dc244feaab263dc209a47173d96c456d980fb2e;hb=88cb085461bbe845749f2b4f9bc840e136160ffc;hp=269d1db9d626a4bcd771120af236993d56cad2f3;hpb=161c5d7cd6c9af1b648b27897295eef6e7908b51;p=cl-gtk2.git

diff --git a/gtk/gtk.clipboard.lisp b/gtk/gtk.clipboard.lisp
index 269d1db..9dc244f 100644
--- a/gtk/gtk.clipboard.lisp
+++ b/gtk/gtk.clipboard.lisp
@@ -1,7 +1,7 @@
 (in-package :gtk)
 
 (defcfun gtk-clipboard-set-text :void
-  (clipboard g-object)
+  (clipboard (g-object clipboard))
   (text :string)
   (len :int))
 
@@ -10,11 +10,8 @@
 
 (export 'clipboard-set-text)
 
-(defcfun gtk-clipboard-clear :void
-  (clipboard g-object))
-
-(defun clipboard-clear (clipboard)
-  (gtk-clipboard-clear clipboard))
+(defcfun (clipboard-clear "gtk_clipboard_clear") :void
+  (clipboard (g-object clipboard)))
 
 (export 'clipboard-clear)