From 7bae2f98371d8f2a5b8ba869c31ccb7c8b09d865 Mon Sep 17 00:00:00 2001 Message-Id: <7bae2f98371d8f2a5b8ba869c31ccb7c8b09d865.1717649858.git.mdw@distorted.org.uk> From: Mark Wooding Date: Tue, 19 Mar 2002 17:01:42 +0000 Subject: [PATCH] Updated for glib 2.0.0 Organization: Straylight/Edgeware From: espen --- glib/gboxed.lisp | 4 ++-- glib/gparam.lisp | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/glib/gboxed.lisp b/glib/gboxed.lisp index 35652a1..452e18e 100644 --- a/glib/gboxed.lisp +++ b/glib/gboxed.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: gboxed.lisp,v 1.8 2002/01/20 14:52:04 espen Exp $ +;; $Id: gboxed.lisp,v 1.9 2002/03/19 17:06:11 espen Exp $ (in-package "GLIB") (eval-when (:compile-toplevel :load-toplevel :execute) - (init-types-in-library "libgobject-1.3.so") + (init-types-in-library "libgobject-2.0.so") (defclass boxed (proxy) () (:metaclass proxy-class) diff --git a/glib/gparam.lisp b/glib/gparam.lisp index 8c0d4f3..658e9df 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 -- [mdw]