From: Dmitry Kalyanov <Kalyanov.Dmitry@gmail.com>
Date: Sat, 2 Apr 2011 18:43:16 +0000 (+0400)
Subject: Use iterate in place of non-ansi-conforming usage of loop
X-Git-Url: http://repo.macrolet.net/gitweb/?p=cl-gtk2.git;a=commitdiff_plain;h=28003a40a3a369b32d308057e974b34e45c39f7c

Use iterate in place of non-ansi-conforming usage of loop
---

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))