X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.gvalue.lisp;h=ed67c9b0c0276d7619d830b9e8ae802dd133e3e3;hb=db0d829452f27bbef68da2afd755b7accc5be5be;hp=b5c92b9d7b084c09c9f2cb4a5794069fbe55a944;hpb=2715350f7cc545171a3df81315b758df9ee89969;p=cl-gtk2.git

diff --git a/glib/gobject.gvalue.lisp b/glib/gobject.gvalue.lisp
index b5c92b9..ed67c9b 100644
--- a/glib/gobject.gvalue.lisp
+++ b/glib/gobject.gvalue.lisp
@@ -1,13 +1,5 @@
 (in-package :gobject)
 
-(defcfun g-value-init (:pointer g-value)
-  "Initializes the GValue @code{value} with the default value of @code{type}
-
-@arg[value]{a C pointer to the GValue structure}
-@arg[type]{an integer specifying the GType}"
-  (value (:pointer g-value))
-  (type g-type-designator))
-
 (defun g-value-zero (g-value)
   "Initializes the GValue in \"unset\" state.
 
@@ -16,23 +8,3 @@
      for i from 0 below (foreign-type-size 'g-value)
      do (setf (mem-ref g-value :uchar i) 0)))
 
-(defcfun g-value-copy :void
-  (src-value (:pointer g-value))
-  (dst-value (:pointer g-value)))
-
-(defcfun g-value-reset (:pointer g-value)
-  (value (:pointer g-value)))
-
-(defcfun g-value-unset (:pointer g-value)
-  "Clears the current value in @code{value} and \"unsets\" the type, releasing all resources associated with this GValue. An unset value is the same as an unitialized GValue.
-
-@arg[value]{a C pointer to the GValue structure}"
-  (value (:pointer g-value)))
-
-(defcfun g-value-set-instance :void
-  (value (:pointer g-value))
-  (instance :pointer))
-
-(defcfun g-strdup-value-contents :string
-  (value (:pointer g-value)))
-