(deftest bryan-array ()
  (let ((arr (make-array 3))
	(arr2dim (make-array '(3 4))))
    (setf (aref arr 0) 'zero)
    (setf (aref arr 1) 'one)
    (setf (aref arr 2) 'two)
    (check
      (typep arr 'array)
      (samep (aref arr 2) 'two)
      (typep arr 'vector)
      (and (typep arr2dim 'array)
	   (not (typep arr2dim 'vector))))))