/[gcl]/gcl/o/array.c
ViewVC logotype

Diff of /gcl/o/array.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.32 by camm, Tue Nov 23 22:38:23 2004 UTC revision 1.33 by camm, Mon Dec 27 22:17:53 2004 UTC
# Line 63  extern short aet_sizes[]; Line 63  extern short aet_sizes[];
63  #define N_FIXNUM_ARGS 6  #define N_FIXNUM_ARGS 6
64    
65  DEFUNO_NEW("AREF", object, fLaref, LISP, 1, ARRAY_RANK_LIMIT,  DEFUNO_NEW("AREF", object, fLaref, LISP, 1, ARRAY_RANK_LIMIT,
66         NONE, OO, II, II, II,void,Laref,(object x,fixnum i, ...),"")         ONE_VAL, OO, II, II, II,void,Laref,(object x,fixnum i, ...),"")
67  { int n = VFUN_NARGS;  { int n = VFUN_NARGS;
68    int i1;    int i1;
69    va_list ap;    va_list ap;

Legend:
Removed from v.1.32  
changed lines
  Added in v.1.33

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26