From 4eb73e10a3ea0c85ee5e2ed1dafa0d9374ce5167 Mon Sep 17 00:00:00 2001 Message-Id: <4eb73e10a3ea0c85ee5e2ed1dafa0d9374ce5167.1714761196.git.mdw@distorted.org.uk> From: Mark Wooding Date: Fri, 11 May 2001 16:06:02 +0000 Subject: [PATCH] Fixed bug in type definition Organization: Straylight/Edgeware From: espen --- glib/gparam.lisp | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/glib/gparam.lisp b/glib/gparam.lisp index 530e0a2..21b5457 100644 --- a/glib/gparam.lisp +++ b/glib/gparam.lisp @@ -15,7 +15,7 @@ ;; 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.2 2001-04-29 20:17:52 espen Exp $ +;; $Id: gparam.lisp,v 1.3 2001-05-11 16:06:02 espen Exp $ (in-package "GLIB") @@ -24,7 +24,7 @@ (deftype gvalue () 'pointer) (defconstant +gvalue-size+ (+ (size-of 'type-number) (* 4 (size-of 'double-float)))) (defconstant +gvalue-value-offset+ (size-of 'type-number)) -(define-foreign ("g_value_init" gvalue-init) () nil +(defbinding (gvalue-init "g_value_init") () nil (type type-number)) (defun gvalue-new (type) @@ -58,12 +58,12 @@ (defun gvalue-set (gvalue value) (deftype param-flag-type () '(flags - :readable - :writable - :construct - :construct-only - :lax-validation - :private)) + (:readable 1) + (:writable 2) + (:construct 4) + (:construct-only 8) + (:lax-validation 16) + (:private 32))) (eval-when (:compile-toplevel :load-toplevel :execute) (defclass param (ginstance) -- [mdw]