Skip to content
Snippets Groups Projects
Commit a5c406f5 authored by wlott's avatar wlott
Browse files

Added interpreter stub for %array-rank.

parent 6840f3e0
No related branches found
No related tags found
No related merge requests found
...@@ -7,7 +7,7 @@ ...@@ -7,7 +7,7 @@
;;; Scott Fahlman (FAHLMAN@CMUC). ;;; 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. ;;; Functions to implement arrays for CMU Common Lisp.
;;; Written by Skef Wholey. ;;; Written by Skef Wholey.
...@@ -54,6 +54,9 @@ ...@@ -54,6 +54,9 @@
(frob %array-displacement) (frob %array-displacement)
(frob %array-displaced-p)) (frob %array-displaced-p))
(defun %array-rank (array)
(%array-rank array))
(defun %array-dimension (array axis) (defun %array-dimension (array axis)
(%array-dimension array axis)) (%array-dimension array axis))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment