anchor.diff:    (let ((pre-table (get-pattern-from-head str))
           (bot-table (reverse (get-pattern-from-back str)))
           (indexNum 0))
  -    ;(print pre-table)
  -    ;(print bot-table)
  +    ;(progn (print pre-table) (print bot-table))
       (setf indexNum
             (mapcar #'(lambda (list1 list2)
                         (let ((num 0))
  
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))
      
      ))
  