#!+sb-doc
"the exclusive upper bound on the rank of an array")
-(def!constant sb!xc:array-dimension-limit sb!xc:most-positive-fixnum
+;;; - 2 to leave space for the array header
+(def!constant sb!xc:array-dimension-limit (- sb!xc:most-positive-fixnum 2)
#!+sb-doc
"the exclusive upper bound on any given dimension of an array")
-(def!constant sb!xc:array-total-size-limit sb!xc:most-positive-fixnum
+(def!constant sb!xc:array-total-size-limit (- sb!xc:most-positive-fixnum 2)
#!+sb-doc
"the exclusive upper bound on the total number of elements in an array")