;; Function To Be Tested: array-rank
;;
;; Source:     Common Lisp by Guy Steele
;;            Section 17.3: Array Information        Page: 292
;;
;; Created By: John Park
;;
;; Creation Date: June 9, 86
;;
;; Last Update:   
;;
;; Filed as:      {eris}<lispcore>cml>test>17-3-array-rank.test
;;
;; Syntax: array-rank array    
;;
;; Function Description: This function returns the number of dimensions of 
;; array.
;;
;; Argument(s):  array
;; Returns: number of dimensions (non-negative integer)   
;;
;; Constraints/limitations: None  



(do-test array-rank-test
	(and (eq (array-rank (make-array 1)) 1)
		(eq (array-rank (make-array '(2 2))) 2)
		(eq (array-rank (make-array '(3 3 4))) 3)
		(eq (array-rank (make-array '(4 3 5 2 1 3))) 6)
		(eq (array-rank (make-array '(2 2 2 2 2 2 2))) 7)))

STOP