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: (defpackage #:KMP
    (:use #:CL))
  
  (in-package #:KMP)
  
  ;;; make the string index table
  (defun get-pattern-from-back (str)
  
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))
      
      ))
  