- (let* ((length (read stream))
- (et (make-array length :element-type 'fixnum)))
- (dotimes (i length)
- (declare (fixnum i))
- (setf (aref et i) (read stream)))
- et))))
-
+ (let* ((length (read stream))
+ (et (make-array length :element-type 'fixnum)))
+ (declare (type (simple-array fixnum (*)) et))
+ (dotimes (i length)
+ (declare (fixnum i))
+ (setf (aref et i) (read stream)))
+ et))))
+