# HG changeset patch
# User Steve Losh <steve@stevelosh.com>
# Date 1545683943 18000
# Node ID 2bb2d67ebe221388b36be71919e0930a968d104c
# Parent  638d42c1ebe6f829b5d85a4b4277e5310449d7c7
Fix LGIS

diff -r 638d42c1ebe6 -r 2bb2d67ebe22 src/problems/lgis.lisp
--- a/src/problems/lgis.lisp	Mon Dec 24 15:23:56 2018 -0500
+++ b/src/problems/lgis.lisp	Mon Dec 24 15:39:03 2018 -0500
@@ -90,7 +90,7 @@
   "
   (let* ((sequence (coerce sequence 'vector))
          (n (length sequence))
-         (tail-indexes (make-array (1+ n) :fill-pointer 1))
+         (tail-indexes (make-array (1+ n) :fill-pointer 1 :initial-element nil))
          (predecessors (make-array n :fill-pointer 0)))
     (coerce
       (if (zerop n)