anchor.diff:                          :new-item)
                          ((qid (subseq line 0 (position #\Space line)))
                           :new-local))))
  -      (setf line (to-list (x:string-substitute " (qfun " "->" (no "new " (no "= new" line)))))
  +      (setf line (to-list (string-substitute " (qfun " "->" (no "new " (no "= new" line)))))
         (when (special-fun)
           (setf type :fun))
         (when (search "::" (first line))
  
positive.code:                            (resolve-ambiguous (fifth line*)))
                     (show-warning line*))))
              ((eql :fun type)
               (dotimes (n (length line))
                 (when (string= "(qfun" (nth n line))
                   (rotatef (nth (1- n) line) (nth n line))))
               (when (special-fun)
                 (setf line (cons "(qfun" line)))
               (let ((string-list-p (x:ends-with "QStringList()" qt-line)))
                 (format nil "~%    ~A ~A \"~A\"~{ ~A~}~A"
                         (first line)
                         (var-name (second line))
                         (resolve-ambiguous (third line))
  
negative.code: (defun run (&optional (ui.h "ui.h") (ui.lisp "ui.lisp"))
    (setf *global-vars* (make-hash-table :test 'equal)
          *local-vars*  nil
          *let-vars*    nil
          *main-var*    nil
          *main-class*  nil
          *code*        nil
  