,@(when offset-var `(,offset-var)))
(if (not (array-header-p ,n-array))
(let ((,n-array ,n-array))
- ;; The #-CMU is because tonyms reported (sbcl-devel
- ;; 2002-09-29) that this declaration confuses old CMU
- ;; CL on x86 Debian 2.2. -- WHN 2002-10-02
- #-cmu (declare (type (simple-array * (*)) ,n-array))
+ (declare (type (simple-array * (*)) ,n-array))
,(once-only ((n-len `(length ,n-array))
(n-end `(or ,n-evalue ,n-len)))
`(if (<= ,n-svalue ,n-end ,n-len)
;;; versions, especially for internal versions off the main CVS
;;; branch, it gets hairier, e.g. "0.pre7.14.flaky4.13".)
-"0.7.9.10"
+"0.7.9.11"