From 70c9e3661d98fddec33006c191723ec62454a619 Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Thu, 16 Apr 2009 03:25:33 +0400 Subject: [PATCH] Reordered cases in translate-to-foreign for GObject pointers --- glib/gobject.foreign-gobject.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/glib/gobject.foreign-gobject.lisp b/glib/gobject.foreign-gobject.lisp index 5cbe65c..d02bea8 100644 --- a/glib/gobject.foreign-gobject.lisp +++ b/glib/gobject.foreign-gobject.lisp @@ -163,6 +163,7 @@ (cond ((null object) (null-pointer)) + ((pointerp object) object) ((null (pointer object)) (error "Object ~A has been disposed" object)) ((typep object 'g-object) @@ -170,7 +171,6 @@ nil "Object ~A is not a subtype of ~A" object (sub-type type)) (pointer object)) - ((pointerp object) object) (t (error "Object ~A is not translatable as GObject*" object)))) (defun get-g-object-for-pointer (pointer) -- 1.7.10.4