anchor.diff:          (let ((arg (nth (+ 2 n) line)))
             (setf (nth (+ 2 n) line)
                   (cond ((search "::" arg)
  -                       (format nil "|~A|" (x:string-substitute "." "::" arg)))
  +                       (format nil "|~A|" (string-substitute "." "::" arg)))
                         ((string= "true" arg)
                          "t")
                         ((string= "false" arg)
  
positive.code:                       (split line)))
           (show-warning (line)
             (format *debug-io* "~%Not implemented, see line ~D of \"ui.h\":~%~%[Qt] ~A~%[??] ~S~%" *line-nr* qt-line line)
             (format nil "~%;[?] ~A" qt-line)))
      (let* ((line (trim (no #\( (no #\) (no #\, qt-line)))))
             (type (cond ((search "->" line)
                          :fun)
  
negative.code:             (return))
            (x:when-it (c-to-lisp line)
              (push x:it *code*))))
        (format out "~%(defvar ~A) ; main widget~
                     ~{~%(defvar ~A)~}~
                     ~%~
                     ~%(defun ini ()~
                     ~%  (qlet (~{~A~^ ~})~
                     ~%    (let (~{~A~^ ~})~
                     ~%      (setf ~A (qnew ~S))"
                (var-name *main-var*)
                (mapcar 'var-name (sort (remove *main-var* (loop for var being the hash-keys in *global-vars* collect var) :test 'string=)
                                        'string<))
                (mapcar 'var-name (reverse *local-vars*))
                (mapcar 'var-name (reverse *let-vars*))
                (var-name *main-var*)
                *main-class*)
        (dolist (line (nreverse *code*))
          (write-string line out))
        (format out "~%      (qfun ~A \"show\"))))~
                     ~%~
                     ~%(ini)~%"
                (var-name *main-var*))))
    (setf *global-vars* nil
          *local-vars*  nil
          *let-vars*    nil
          *main-var*    nil
          *main-class*  nil
          *code*        nil
  