projects
/
cl-gtk2.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
(probably) fix the error in refcount
[cl-gtk2.git]
/
glib
/
gobject.foreign-gobject.lisp
diff --git
a/glib/gobject.foreign-gobject.lisp
b/glib/gobject.foreign-gobject.lisp
index
a4cad2b
..
0ea990a
100644
(file)
--- a/
glib/gobject.foreign-gobject.lisp
+++ b/
glib/gobject.foreign-gobject.lisp
@@
-149,6
+149,7
@@
(unless lisp-type
(error "Type ~A is not registered with REGISTER-OBJECT-TYPE"
(g-type-name g-type)))
(unless lisp-type
(error "Type ~A is not registered with REGISTER-OBJECT-TYPE"
(g-type-name g-type)))
+ (g-object-ref pointer)
(make-instance lisp-type :pointer pointer)))
(define-foreign-type foreign-g-object-type ()
(make-instance lisp-type :pointer pointer)))
(define-foreign-type foreign-g-object-type ()
@@
-160,6
+161,8
@@
(defmethod translate-to-foreign (object (type foreign-g-object-type))
(cond
(defmethod translate-to-foreign (object (type foreign-g-object-type))
(cond
+ ((null object)
+ (null-pointer))
((null (pointer object))
(error "Object ~A has been disposed" object))
((typep object 'g-object)
((null (pointer object))
(error "Object ~A has been disposed" object))
((typep object 'g-object)