From a5c406f521150a452d5ebb15f1dd9bee07b1a899 Mon Sep 17 00:00:00 2001 From: wlott <wlott> Date: Wed, 3 Oct 1990 09:55:22 +0000 Subject: [PATCH] Added interpreter stub for %array-rank. --- code/array.lisp | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/code/array.lisp b/code/array.lisp index 5f1a04b7e..b8e00a51e 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)) -- GitLab