From 28003a40a3a369b32d308057e974b34e45c39f7c Mon Sep 17 00:00:00 2001 From: Dmitry Kalyanov Date: Sat, 2 Apr 2011 22:43:16 +0400 Subject: [PATCH] Use iterate in place of non-ansi-conforming usage of loop --- glib/gobject.object.high.lisp | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) 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)) -- 1.7.10.4