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)))