anchor.diff:           ;(print strList)
            (setf result (append result (list (subseq strList 0 i)))))
       result))
  -
  +#|
   (defun max-list (list)
         (loop for element in list maximizing element))
  +|#
   
   (defun get-index-number (str)
     (let ((pre-table (get-pattern-from-head str))
  
positive.code:   (:use #:CL))
  
  (in-package #:KMP)
  
  (defvar *test-string* "bbc abcdab abcdabcdabde")
  (defvar *test-pattern* "abcdabd")
  
negative.code:                             (setf num (length list1)))
                    num)) pre-table bot-table))
      ;(print indexNum)
      (setf indexNum (MX:max-list indexNum))))
  
  (defun make-index-table (p)
    (let ((pList (coerce p 'list))
  