Fixed bug with read-until's implementation of the KMP algorithm.

The KMP algorithm works by building a table which keeps track of which
characters in the search string can be skipped when a mismatch
occurs. This information is supposed to be maintained in the index of
the mismatch. Read-until had previously built the table incorrectly
and placed that information in the wrong place.

Author: malisper

url-rewrite/primitives.lisp

@@ -120,7 +120,7 @@ WRITE-THROUGH is true.  On EOF the string read so far is returned."
                                   ;; OFFSETS
                                   do (push (cons (char string (- mismatch i))
                                                  (1+ (- mismatch i)))
-                                           (svref offsets i))
+                                           (svref offsets mismatch))
                                   finally (return offsets))))))
          (collector (or skip
                         (make-array 0