small revision

lib/quic.lisp

@@ -163,9 +163,7 @@
 (defun find-qt-method (var name)
   (let ((class (gethash var *classes*))
         (name* (format nil " ~A(" name)))
-    (loop
-      (unless class
-        (return))
+    (x:while class
       (x:when-it (qapropos* name* class)
         ;; resolve ambiguous
         (let ((name** (assoc name '(("addAction" . "addAction(QAction*)"))
@@ -178,9 +176,7 @@
         (name* (format nil " ~C~A"
                        (char-downcase (char name 3))
                        (subseq name #.(length "setX")))))
-    (loop
-      (unless class
-        (return))
+    (x:while class
       (x:when-it (qapropos* name* class)
         (return-from find-qt-setter (prin1-to-string (subseq name* 1))))
       (setf class (qsuper-class-name class)))))