anchor.diff:  (defun constructor-arg (class)
     (dolist (arg '("(QWidget*)"
                    "(QObject*)"
  +                 "(QListWidget*)"
                    "(QColor)"
                    "(QSizePolicy::Policy,QSizePolicy::Policy)"
                    "(int,int,QSizePolicy::Policy,QSizePolicy::Policy)"))
  
positive.code:                        (push arg list))
                     (setf arg nil)))))
          (x:do-string (ch line)
            (if (and (not string-p)
                     (char= #\Space ch))
                (add-arg)
                (progn
                  (push ch arg)
                  (when (char= #\" ch)
                    (when string-p
                      (add-arg))
                    (setf string-p (not string-p))))))
          (add-arg))
        (nreverse list)))
    (defun special-fun ()
      special-fun))
  
  (defun qt-to-eql (qt-line &optional tr)
    (flet ((no (x line)
             (x:string-substitute " " x line))
           (to-list (line)
             (remove-if (lambda (x) (find x '("QSize" "QRect" "QString::fromUtf8")
                                          :test 'string=))
                        (split line))))
      (let* ((line (trim (no "(" (no ")" (no "," qt-line)))))
             (type (cond ((search "->" line)
                          :fun)
                         ((search "= new" line)
                          :new)
                         ((qid (subseq line 0 (position #\Space line)))
                          :new-local))))
        (setf line (to-list (no "->" (no "= new" line))))
        (when (special-fun)
          (setf type :fun))
        (dotimes (n (- (length line) 2))
          (let ((arg (nth (+ 2 n) line)))
            (setf (nth (+ 2 n) line)
  
negative.code: (defvar *main-var*)
  (defvar *main-class*)
  (defvar *code*)
  (defvar *line-nr*)
  
  (defun run (&optional (ui.h "ui.h") (ui.lisp "ui.lisp"))
    (setf *global-vars* (make-hash-table :test 'equal)
          *local-vars*  nil
          *main-var*    nil
          *main-class*  nil
          *code*        nil
          *line-nr*     0)
    (with-open-file (in ui.h :direction :input)
      (with-open-file (out ui.lisp :direction :output :if-exists :supersede)
        (format out "(defpackage :ui~
  