anchor.diff:  
   (defun make-index-table (p)
     (let ((pList (coerce p 'list))
  -        (indexTable '()))
  -    (loop for i from 1 to (length pList) do
  +        (indexTable '(-1)))
  +    (loop for i from 1 to (1- (length pList)) do
            (setf indexTable (append indexTable
                                     (list (get-index-number (subseq p 0 i))))))
       indexTable))
  
positive.code:   (let ((pre-table (get-pattern-from-head str))
          (bot-table (reverse (get-pattern-from-back str)))
          (indexNum 0))
      ;(print pre-table)
      ;(print bot-table)
      (setf indexNum
            (mapcar #'(lambda (list1 list2)
                        (let ((num 0))
  
negative.code: (defun do-kmp (s p)
    (let* ((strList (coerce s 'list))
           (patList (coerce p 'list))
           (indexTable (make-index-table p))
           (lenPatList (length patList)))
      ;(progn (print strList) (print patList) (print indexTable))
      
      ))
  