From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sun, 12 Jul 2009 09:56:24 +0000 (+0400)
Subject: g-type-string: return nil if type is invalid
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=37f2b465775011aea78ee020fd9b41a0d3e267b7;p=cl-gtk2.git

g-type-string: return nil if type is invalid
---

diff --git a/glib/gobject.type-designator.lisp b/glib/gobject.type-designator.lisp
index a4b2bdf..d95e9b2 100644
--- a/glib/gobject.type-designator.lisp
+++ b/glib/gobject.type-designator.lisp
@@ -35,7 +35,7 @@ Numeric identifier of GType may be different between different program runs. But
 
 (defun g-type-string (g-type-designator)
   (etypecase g-type-designator
-    (string g-type-designator)
+    (string (g-type-name g-type-designator))
     (integer (g-type-name g-type-designator))
     (null nil)))