anchor.diff:    (1- index-trans-table))
   
   (defun make-dfa (regex-string)
  +  "MAKE-DFA
  +   return a dfa.
  +   using GLOBAL parameters and ugly. Hence I will fix it later.
  +   RETURN: *TODO*"
     (progn
       (defparameter trans-table (make-array 50))
       (defparameter index-trans-table 0))
  
positive.code:   (let ((begin-index nil)
          (end-index nil)
          (len (string-length rest-regex)))
      ))
  
  (defun get-first-paren (regex-string)
    "GET-FIRST-PAREN
  
negative.code:    parse a regex-string recursively.
     RETURN:(lst begin-index end-index length+2)
     "
    (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))))
    (let ((current-char nil)
          (begin-index nil)
          (end-index nil)
  