Clean up after merge

[cl-gtk2.git] / gtk / gtk.clipboard.lisp

diff --git a/gtk/gtk.clipboard.lisp b/gtk/gtk.clipboard.lisp
index 269d1db..9dc244f 100644 (file)
--- 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)