anchor.diff:          *local-vars*  nil
           *main-var*    nil
           *main-class*  nil
  -        *code*        nil))
  +        *code*        nil
  +        *line-nr*     nil))
   
   (defun trim (string)
     (string-trim " .;*" string))
  
positive.code:            (qt-to-eql line :tr)))))))
  
  (defun resolve-ambiguous (fun)
    (let ((fun* (assoc fun '(("addAction" . "addAction(QAction*)"))
                           :test 'string=)))
      (if fun* (cdr fun*) fun)))
  
negative.code:                    ~%~
                     ~%(in-package :ui)~%")
        (loop
          (incf *line-nr*)
          (let ((line (read-line in nil :eof)))
            (when (eql :eof line)
              (return))
  