diff --git a/code/array.lisp b/code/array.lisp index 5f1a04b7ea0794745e567e0f3e6ff8a101095c58..b8e00a51eac8e2b1da70eb250f0f9175098b01af 100644 --- a/code/array.lisp +++ b/code/array.lisp @@ -7,7 +7,7 @@ ;;; Scott Fahlman (FAHLMAN@CMUC). ;;; ********************************************************************** ;;; -;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/array.lisp,v 1.3 1990/08/24 18:10:14 wlott Exp $ +;;; $Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/array.lisp,v 1.4 1990/10/03 09:55:22 wlott Exp $ ;;; ;;; Functions to implement arrays for CMU Common Lisp. ;;; Written by Skef Wholey. @@ -54,6 +54,9 @@ (frob %array-displacement) (frob %array-displaced-p)) +(defun %array-rank (array) + (%array-rank array)) + (defun %array-dimension (array axis) (%array-dimension array axis))