anchor.diff:      (defparameter index-trans-table 0))
     (let* ((ret-parse (parse-regex regex-string))
            (finish (get-ret 'end ret-parse)))
  -    (setf (state-attrib (aref trans-table finish)) 'fi))
  +    (setf (state-attrib (access-state finish)) 'fi))
     (print-trans-table))
   
   (defun parse-regex (regex-string &optional begin)
  
positive.code:     (let* ((ret-parse    (parse-regex regex1))
             (begin1-index (get-ret 'begin ret-parse))
             (end1-index   (get-ret 'end   ret-parse)))
        (setf (state-out1 (aref trans-table begin-index)) begin1-index)
        (setf (state-out1 (aref trans-table end1-index)) end-index))
      (let* ((ret-parse    (parse-regex regex2))
             (begin2-index (get-ret 'begin ret-parse))
             (end2-index   (get-ret 'end   ret-parse)))
        (setf (state-out2 (aref trans-table begin-index)) begin2-index)
        (setf (state-out1 (aref trans-table end2-index)) end-index))
      (list begin-index end-index (+ 2 len))))
  
  
  
negative.code:                  (incf index (1- (get-ret 'len ret-parse)))))
                (t ; Simple State
                 (let ((s-index (add-state nil '∈)))
                   (setf (state-out1 (access-state last-end-index))
                         s-index)
                   (setf (state-attrib (access-state last-end-index))
                         nil)
                   (setf (state-match (access-state last-end-index))
                         current-char)
                   (set-begin-end-f last-end-index s-index)
                   ))
  