mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-18 07:12:26 -08:00
Code Issues Projects Releases Packages Wiki Activity

Inline form for array-rank

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2012-11-30 11:18:49 +01:00
parent 5f95206e67
commit 4a3b36ec4d
1 changed files with 2 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/cmp/sysfun.lsp
View file

@ -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))")