From 27288dc13f28296b531fab38227f55758dd20b3e Mon Sep 17 00:00:00 2001
From: davidly <davidly_lee@hotmail.com>
Date: Fri, 5 Jul 2024 06:05:35 -0700
Subject: [PATCH] make sieve conform to the standard benchmark

---
 Ashwood-Smith PC-LISP v3/SIEVE.LSP | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/Ashwood-Smith PC-LISP v3/SIEVE.LSP b/Ashwood-Smith PC-LISP v3/SIEVE.LSP
index 6cfe609..abd4a3a 100644
--- a/Ashwood-Smith PC-LISP v3/SIEVE.LSP	
+++ b/Ashwood-Smith PC-LISP v3/SIEVE.LSP	
@@ -8,7 +8,7 @@
     (setq i 0)
     (setq count 0)
     _nexti_
-        (cond ((< i size)
+        (cond ((<= i size)
                (a t i)
                (setq i (add1 i))
                (go _nexti_))
@@ -16,13 +16,13 @@
 
     (setq i 0)
     _nexti2_
-        (cond ((< i size)
+        (cond ((<= i size)
                (cond ((a i)
                       (setq prime (+ i i 3))
                       (setq k (+ i prime))
                       (prog ()
                           _nextk_
-                              (cond ((< k size)
+                              (cond ((<= k size)
                                      (a nil k)
                                      (setq k (+ k prime))
                                      (go _nextk_))