From bc48fb406b02ca809e4a3326c787ef840ada37eb Mon Sep 17 00:00:00 2001
From: toshihiro <toshihiro@localhost.localdomain>
Date: Tue, 12 Jun 2018 16:58:01 +0900
Subject: [PATCH] In sequence.c, start/end parameter check is corrected for
 arrays        since specifying start>end caused a segmentation fault.

---
 lisp/c/sequence.c | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/lisp/c/sequence.c b/lisp/c/sequence.c
index 7e4630161..20d5b66c6 100644
--- a/lisp/c/sequence.c
+++ b/lisp/c/sequence.c
@@ -142,7 +142,9 @@ pointer argv[];
     a=a->c.ary.entity;}
   if (isvector(a)) {
     count=vecsize(a);
-    if (n==3) e=min(e,count);
+    if (s>count) error(E_STARTEND);
+    if (n==3) {
+      if (e>count) error(E_STARTEND); }
     else e=count;
     count=e-s;
     switch(elmtypeof(a)) {