X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=glib%2Fgobject.object.high.lisp;h=f2b07b2c5a448acefb5049f3be476d51ae9fa056;hb=28003a40a3a369b32d308057e974b34e45c39f7c;hp=db156d109c233047113cbaf0c34f917b00cc3cdb;hpb=b2bfac4785e86a384206bb8ff758e8910a66e54f;p=cl-gtk2.git

diff --git a/glib/gobject.object.high.lisp b/glib/gobject.object.high.lisp
index db156d1..f2b07b2 100644
--- a/glib/gobject.object.high.lisp
+++ b/glib/gobject.object.high.lisp
@@ -161,11 +161,11 @@
   (gethash name *registered-object-types*))
 (defun get-g-object-lisp-type (g-type)
   (setf g-type (gtype g-type))
-  (loop
-     while (not (null g-type))
-     for lisp-type = (gethash (gtype-name g-type) *registered-object-types*)
-     when lisp-type do (return lisp-type)
-     do (setf g-type (g-type-parent g-type))))
+  (iter (while (not (null g-type)))
+        (for lisp-type = (gethash (gtype-name g-type) *registered-object-types*))
+        (when lisp-type
+          (return lisp-type))
+        (setf g-type (g-type-parent g-type))))
 
 (defun make-g-object-from-pointer (pointer)
   (let* ((g-type (g-type-from-instance pointer))