Parent Directory | Revision Log | Patch
revision 1.3 by wfs, Tue May 15 05:58:28 2001 UTC | revision 1.4 by camm, Thu Jun 13 00:00:46 2002 UTC | |
---|---|---|
# | Line 691 siLbit_array_op() | Line 691 siLbit_array_op() |
691 | object b[F_ARG_LIMIT]; | object b[F_ARG_LIMIT]; |
692 | for (i = 0; i < x->a.a_rank; i++) | for (i = 0; i < x->a.a_rank; i++) |
693 | b[i] = (make_fixnum(x->a.a_dims[i])); | b[i] = (make_fixnum(x->a.a_dims[i])); |
694 | r=Iapply_fun_n(fSmake_array1,5,x->a.a_rank, | r=Iapply_fun_n1(fSmake_array1,5,x->a.a_rank, |
695 | aet_bit, | aet_bit, |
696 | Cnil, | Cnil, |
697 | small_fixnum(0), | small_fixnum(0), |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |