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