838 |
(if *safe-compile* |
(if *safe-compile* |
839 |
;;FIXME -- alter C definition to remove the fixint here. |
;;FIXME -- alter C definition to remove the fixint here. |
840 |
(wt "fixint(fLarray_dimension(" a "," i "))") |
(wt "fixint(fLarray_dimension(" a "," i "))") |
841 |
(wt "(type_of(" a ")==t_array ? (" a ")->a.a_dims[(" i ")] : (" a ")->v.v_dim)")))))) |
(if (eql 0 i) |
842 |
|
(wt "(type_of(" a ")==t_array ? (" a ")->a.a_dims[(" i ")] : (" a ")->v.v_dim)") |
843 |
|
(wt "(" a ")->a.a_dims[(" i ")]"))))))) |
844 |
|
|
845 |
(defun list*-inline (&rest x) |
(defun list*-inline (&rest x) |
846 |
(case (length x) |
(case (length x) |