From a31549c0bdb9dd94825344966f6d0889a84231cb Mon Sep 17 00:00:00 2001 From: Kalyanov Dmitry Date: Thu, 8 Oct 2009 18:21:07 +0400 Subject: [PATCH] gobject:define-g-object-class: do not insert g-object as a superclass => fixes circular class-precende-list --- glib/gobject.generating.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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) -- 1.7.10.4