[cells-gtk-cvs] CVS root/gtk-ffi

[pdenno]

Update of /project/cells-gtk/cvsroot/root/gtk-ffi
In directory common-lisp:/tmp/cvs-serv15199/root/gtk-ffi

Modified Files:
	gtk-core.lisp 
Log Message:
Use uffi package prefix

--- /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-core.lisp	2006/02/16 18:02:17	1.7
+++ /project/cells-gtk/cvsroot/root/gtk-ffi/gtk-core.lisp	2006/02/19 20:15:07	1.8
@@ -47,7 +47,7 @@
   (gdk-threads-leave :void ())
   (gdk-flush :void ()))
 
-(def-union g-value-data
+(uffi:def-union g-value-data
   (v-int :int)
   (v-uint :unsigned-int)
   (v-long :long)
@@ -60,7 +60,7 @@
   (v-double :double)
   (v-pointer :pointer-void))
 
-(def-struct g-value
+(uffi:def-struct g-value
     (g-type (:array :int 16)))
 
 (defmacro with-g-value ((var) &body body)
@@ -72,7 +72,7 @@
     (unwind-protect
         (dotimes (n 16)
             (let* ((gv (cffi:mem-aref gva 'g-value 0))
-		   (ns (get-slot-pointer gv 'g-value 'g-type)))
+		   (ns (cffi:foreign-slot-value gv 'g-value 'g-type)))
 		(setf (cffi:mem-aref ns ':int n) 0))))
           (funcall fn gva)
       (cffi:foreign-free gva)))