(declare (type fixnum ---)) considered etc.

[franz!smh@kim.Berkeley.EDU (Steve Haflich)]

   Date: 23 Jul 1986 23:18-EDT
   From: NGALL%G.BBN.COM

   My solution is to write (integer 0 #.array-dimension-limit).
   It works just fine.

   -- Nick

Of course this `works fine', but perhaps what better captures your
intended efficiency is an *exclusive* upper limit:
	(integer 0 (#.array-dimension-limit))

But note that with such a declaration on the array index i, this
innocuous code could fail:

	(let ((len (length my-array)))
	  (do ((i 0 (1+ i)))
	      ((> i len))
	    ...))