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