chiark
/
gitweb
/
~mdw
/
clg
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (from parent 1:
d4b21b0
)
Fixed bug in type definition
author
espen
<espen>
Fri, 11 May 2001 16:06:02 +0000
(16:06 +0000)
committer
espen
<espen>
Fri, 11 May 2001 16:06:02 +0000
(16:06 +0000)
glib/gparam.lisp
patch
|
blob
|
blame
|
history
diff --git
a/glib/gparam.lisp
b/glib/gparam.lisp
index 530e0a2dd47093729e3569976cb01669b1a43e54..21b5457e489cb7a3851975ba283e6aa43018b358 100644
(file)
--- 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
;; 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:5
2 espen Exp $
+;; $Id: gparam.lisp,v 1.
3 2001-05-11 16:06:0
2 espen Exp $
(in-package "GLIB")
(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))
(defconstant +gvalue-size+ (+ (size-of 'type-number) (* 4 (size-of 'double-float))))
(defconstant +gvalue-value-offset+ (size-of 'type-number))
-(def
ine-foreign ("g_value_init" gvalue-init
) () nil
+(def
binding (gvalue-init "g_value_init"
) () nil
(type type-number))
(defun gvalue-new (type)
(type type-number))
(defun gvalue-new (type)
@@
-58,12
+58,12
@@
(defun gvalue-set (gvalue value)
(deftype param-flag-type ()
'(flags
(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)
(eval-when (:compile-toplevel :load-toplevel :execute)
(defclass param (ginstance)