From: Kalyanov Dmitry Date: Thu, 8 Oct 2009 14:21:07 +0000 (+0400) Subject: gobject:define-g-object-class: do not insert g-object as a superclass => fixes circul... X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a31549c0bdb9dd94825344966f6d0889a84231cb;p=cl-gtk2.git gobject:define-g-object-class: do not insert g-object as a superclass => fixes circular class-precende-list --- diff --git a/glib/gobject.generating.lisp b/glib/gobject.generating.lisp index 0abcfc9..f9283a3 100755 --- a/glib/gobject.generating.lisp +++ b/glib/gobject.generating.lisp @@ -167,7 +167,7 @@ (&rest properties)) (setf properties (mapcar #'parse-property properties)) `(progn - (defclass ,name (,superclass ,@(mapcar #'interface->lisp-class-name interfaces)) + (defclass ,name (,@(when (and superclass (not (eq superclass 'g-object))) (list superclass)) ,@(mapcar #'interface->lisp-class-name interfaces)) (,@(mapcar (lambda (property) (meta-property->slot name property)) properties)) (:metaclass gobject-class) (:g-type-name . ,g-type-name)