From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Wed, 15 Apr 2009 23:25:33 +0000 (+0400)
Subject: Reordered cases in translate-to-foreign for GObject pointers
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=70c9e3661d98fddec33006c191723ec62454a619;p=cl-gtk2.git

Reordered cases in translate-to-foreign for GObject pointers
---

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)