~mdw
/
clg
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Inherit from REF-COUNTED-OBJECT
[clg]
/
glib
/
gtype.lisp
diff --git
a/glib/gtype.lisp
b/glib/gtype.lisp
index
ab0918f
..
5141a37
100644
(file)
--- a/
glib/gtype.lisp
+++ b/
glib/gtype.lisp
@@
-20,7
+20,7
@@
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
;; TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE
;; SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
-;; $Id: gtype.lisp,v 1.
58 2006/08/31 20:40:56
espen Exp $
+;; $Id: gtype.lisp,v 1.
60 2007/01/12 10:32:43
espen Exp $
(in-package "GLIB")
(in-package "GLIB")
@@
-227,6
+227,7
@@
while line
when (and
symbol (> (length symbol) 9)
while line
when (and
symbol (> (length symbol) 9)
+ (not (char= (char symbol 0) #\_))
(or
(not prefixes)
(some #'(lambda (prefix)
(or
(not prefixes)
(some #'(lambda (prefix)
@@
-367,7
+368,7
@@
;;;; Superclass for wrapping types in the glib type system
(eval-when (:compile-toplevel :load-toplevel :execute)
;;;; Superclass for wrapping types in the glib type system
(eval-when (:compile-toplevel :load-toplevel :execute)
- (defclass ginstance (
proxy
)
+ (defclass ginstance (
ref-counted-object
)
(;(class :allocation :alien :type pointer :offset 0)
)
(:metaclass proxy-class)
(;(class :allocation :alien :type pointer :offset 0)
)
(:metaclass proxy-class)
@@
-399,12
+400,6
@@
(error "Object at ~A has an unkown type number: ~A"
location (%type-number-of-ginstance location)))))
(error "Object at ~A has an unkown type number: ~A"
location (%type-number-of-ginstance location)))))
-(define-type-method from-alien-form ((type ginstance) form &key (ref :copy))
- (call-next-method type form :ref ref))
-
-(define-type-method from-alien-function ((type ginstance) &key (ref :copy))
- (call-next-method type :ref ref))
-
;;;; Registering fundamental types
;;;; Registering fundamental types