Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with HTTPS or Subversion.

Download ZIP
Browse files

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

  • Loading branch information...
commit 25274f6876256bbb42b48177af6b2dcb3d160e65 1 parent 4d94630
@archimag archimag authored
Showing with 1 addition and 1 deletion.
  1. +1 −1  diff.lisp
View
2  diff.lisp
@@ -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
Please sign in to comment.
Something went wrong with that request. Please try again.