anchor.diff:                           ((= (1- len)) (setf end-index s-index)))
                      (setf (state-out1 (aref trans-table s-index))
                            (1+ s-index)))))))
  -    (list begin-index end-index (+ 2 len))))
  +    (list begin-index end-index (+ 2 len)))))
  +
  +(defun get-ret (key parse-ret)
  +  "GET-RET
  +   get value by keyword from return of PARSE-REGEX
  +   RETURN: numbers"
  +  (cond ((eq 'begin key) (nth 0 parse-ret))
  +        ((eq 'end   key) (nth 1 parse-ret))
  +        ((eq 'lenth key) (nth 2 parse-ret))))
   
   (defun deal-with-paren (paren-regex)
     "DEAL-WITH-PAREN
  
positive.code:         (end-index nil)
          (len (string-length rest-regex)))
      (if (is-union rest-regex)
        (if (not (union-ugly-p rest-regex))
          (let ((ret-parse (make-union rest-regex)))
      ))
  
  (defun make-union (union-string)
    "MAKE-UNION
  
negative.code:    parse a regex-string recursively.
     RETURN:(lst begin-index end-index length+2)
     "
    (let ((current-char nil)
          (begin-index nil)
          (end-index nil)
  