anchor.diff:  
   (defun lexer-parse (mode target-string)
     (lexer-parse/impl mode
  -                    (remove #\Return target-string)))
  +                    (format nil
  +                            "~%~A~%"
  +                            (remove #\Return target-string))))
   
   
   ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  
positive.code:            ,category)
       (iter (for prop in ',args)
             (setf (get ',name (car prop))
                   (if (and (eql (car prop) :post-handler)
                            (third prop))
                       (list (eval `(lambda ,@(cdr prop))))
                       (cdr prop))))
  
negative.code:           #'<
            :key #'(lambda (s) (get s :sort)))))
  
  (defun parse-regex (re)
    (cond
      ((stringp re) (ppcre:parse-string re))
      ((consp re) re)
      (t (error "Bad type of regular expressiong: ~A" re))))
  
  (defun make-mtable (mode)
    (let ((regexs nil)
          (modes nil))
      (iter (for exit in (get mode :continue))
            (push :continue modes)
            (push (parse-regex exit) regexs))
      (iter (for exit in (get mode :exit))
            (push :exit modes)
            (push (parse-regex exit) regexs))
      (iter (for reg in (get mode :exit-border))
            (push :exit-border modes)
            (push (parse-regex reg) regexs))
      (iter (for amode in (allowed-modes mode))
            (iter (for entry in (get amode :entry))
                  (push amode modes)
                  (push (parse-regex entry) regexs))
            (iter (for special in (get amode :special))
                  (push (cons :special amode) modes)
                  (push (parse-regex special) regexs))
            (iter (for single in (get amode :single))
                  (push (cons :single amode) modes)
                  (push (parse-regex single) regexs)))
      (cons (if (cdr regexs)
                (cons :alternation
                      (iter (for reg in (nreverse regexs))
  