From b1c6ee03c41e0db97989ae38e70da4d8263e09d1 Mon Sep 17 00:00:00 2001
From: "James M. Lawrence" <llmjjmll@gmail.com>
Date: Fri, 25 Jul 2014 11:36:53 -0400
Subject: [PATCH] Fix default ARRAY-INDEX and ARRAY-LENGTH.

ARRAY-DIMENSION-LIMIT is an exclusive upper bound.

Signed-off-by: Attila Lendvai <attila.lendvai@gmail.com>
---
 types.lisp | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/types.lisp b/types.lisp
index 6aa722f..1942d0e 100644
--- a/types.lisp
+++ b/types.lisp
@@ -1,14 +1,14 @@
 (in-package :alexandria)
 
-(deftype array-index (&optional (length array-dimension-limit))
+(deftype array-index (&optional (length (1- array-dimension-limit)))
   "Type designator for an index into array of LENGTH: an integer between
-0 (inclusive) and LENGTH (exclusive). LENGTH defaults to
+0 (inclusive) and LENGTH (exclusive). LENGTH defaults to one less than
 ARRAY-DIMENSION-LIMIT."
   `(integer 0 (,length)))
 
-(deftype array-length (&optional (length array-dimension-limit))
+(deftype array-length (&optional (length (1- array-dimension-limit)))
   "Type designator for a dimension of an array of LENGTH: an integer between
-0 (inclusive) and LENGTH (inclusive). LENGTH defaults to
+0 (inclusive) and LENGTH (inclusive). LENGTH defaults to one less than
 ARRAY-DIMENSION-LIMIT."
   `(integer 0 ,length))
 
-- 
GitLab