anchor.diff:        (unless class
           (return))
         (x:when-it (qapropos* name* class)
  -        (let* ((full (second (second (first x:it))))
  -               (end  (position #\( full))
  -               (fun  (subseq full (1+ (position #\Space full :end end :from-end t)) end))
  -               ;; resolve ambiguous
  -               (fun* (assoc fun '(("addAction" . "addAction(QAction*)"))
  -                            :test 'string=)))
  -          (return-from find-qt-method (prin1-to-string (if fun* (cdr fun*) fun)))))
  +        ;; resolve ambiguous
  +        (let ((name** (assoc name '(("addAction" . "addAction(QAction*)"))
  +                             :test 'string=)))
  +          (return-from find-qt-method (prin1-to-string (if name** (cdr name**) name)))))
         (setf class (qsuper-class-name class)))))
   
   (defun prepare-args (args)
  
positive.code:              (cond ((and (string= "QColor" (first args)) (find (length args) '(4 5)))
                      (list (format nil "(qfun \"QColor\" \"fromRgb\"~{ ~A~})" (rest args))))
                     (t
                      (let ((args* (copy-list args)))
                        (dotimes (i (length args))
                          (x:when-it (and (string= "(qfun" (nth i args))
                                          (find-qt-method (nth (1+ i) args) (nth (+ i 2) args)))
                            (setf (nth (+ i 2) args*) x:it)))
                        (mapcar (lambda (arg)
                                  (cond ((> (count #\| arg) 2)
                                         (format nil "(logior |~A|)" (string-trim " |" (string-substitute "| |" "|" arg))))
                                        (t
                                         (if (string= "QString" arg)
  
negative.code:         (coerce (nreverse line*) 'string))))
  
  (defun insert-tr (line string-lines-pos)
    (let* ((pos       (position-if (lambda (x) (search ".translate" x)) line))
           (tr-string (if pos (nth (+ 2 pos) line) "\"\""))
           (shortcut  (if pos (string= "setShortcut" (nth (1- pos) line))))
           line*)
      (if pos
          (let ((start (eql :start string-lines-pos)))
            (dotimes (n (length line))
              (cond ((= n pos)
                     (push (format nil "~A(tr ~A~A"
                                   (if shortcut "(qnew \"QKeySequence\" " "")
                                   (from-qt-utf8 (if start (string-right-trim "\"\\n" tr-string) tr-string))
                                   (if start "" (if shortcut "))" ")")))
                           line*))
                    ((or (< n pos)
                         (> n (+ 4 pos)))
  