From 4a3b36ec4d2f7d6d439ba21494652edfc75cf5eb Mon Sep 17 00:00:00 2001 From: Juan Jose Garcia Ripoll Date: Fri, 30 Nov 2012 11:18:49 +0100 Subject: [PATCH] Inline form for array-rank --- src/cmp/sysfun.lsp | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/cmp/sysfun.lsp b/src/cmp/sysfun.lsp index 898401754..0adcea93f 100644 --- a/src/cmp/sysfun.lsp +++ b/src/cmp/sysfun.lsp @@ -192,6 +192,8 @@ (def-inline array-rank :unsafe (array) :fixnum "@0;(((#0)->d.t == t_array)?(#0)->array.rank:1)") +(def-inline array-rank :always (array) :fixnum + "ecl_array_rank(#0)") (def-inline array-dimension :always (t t) fixnum "ecl_array_dimension(#0,ecl_to_size(#1))")