X-Git-Url: https://www.chiark.greenend.org.uk/ucgi/~mdw/git/clg/blobdiff_plain/f784870faa01415440fae43823fd6ce4fc4884a6..53a94300685e9c34f59fa8889b22b0cbdd612428:/glib/gparam.lisp diff --git a/glib/gparam.lisp b/glib/gparam.lisp index 9e52cb4..9e7b91c 100644 --- a/glib/gparam.lisp +++ b/glib/gparam.lisp @@ -15,13 +15,13 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA -;; $Id: gparam.lisp,v 1.5 2001-12-12 20:24:41 espen Exp $ +;; $Id: gparam.lisp,v 1.6 2002-03-19 17:01:42 espen Exp $ (in-package "GLIB") (deftype gvalue () 'pointer) -(defconstant +gvalue-size+ (+ (size-of 'type-number) (* 4 (size-of 'double-float)))) +(defconstant +gvalue-size+ (+ (size-of 'type-number) (* 2 (size-of 'double-float)))) (defconstant +gvalue-value-offset+ (size-of 'type-number)) (defbinding (gvalue-init "g_value_init") () nil