Permalink
Browse files

fix "out of bounds" bug in #'compute-lcs*

  • Loading branch information...
1 parent 4d94630 commit 25274f6876256bbb42b48177af6b2dcb3d160e65 @archimag archimag committed May 20, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 diff.lisp
View
@@ -132,7 +132,7 @@
(defun compute-lcs* (original modified)
(let* ((m (length original))
(n (length modified))
- (fp (make-array (+ m n)
+ (fp (make-array (+ m n 3)
:initial-element (make-instance 'snake
:original-offset -1
:modified-offset -1

0 comments on commit 25274f6

Please sign in to comment.