projects
/
cl-gtk2.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b2bfac4
)
Use iterate in place of non-ansi-conforming usage of loop
author
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Sat, 2 Apr 2011 18:43:16 +0000
(22:43 +0400)
committer
Dmitry Kalyanov
<Kalyanov.Dmitry@gmail.com>
Sat, 2 Apr 2011 18:43:16 +0000
(22:43 +0400)
glib/gobject.object.high.lisp
patch
|
blob
|
history
diff --git
a/glib/gobject.object.high.lisp
b/glib/gobject.object.high.lisp
index
db156d1
..
f2b07b2
100644
(file)
--- 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))
(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))
(defun make-g-object-from-pointer (pointer)
(let* ((g-type (g-type-from-instance pointer))