/[gcl]/gcl/o/sequence.d
ViewVC logotype

Diff of /gcl/o/sequence.d

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

revision 1.3.4.1.4.1 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.3.4.1.4.2 by camm, Thu Nov 6 16:16:53 2003 UTC
# Line 71  int l; Line 71  int l;
71          return(x);          return(x);
72  }  }
73    
74  void  LFD(Lelt)()
 Lelt()  
75  {  {
76          check_arg(2);          check_arg(2);
77          vs_base[0] = elt(vs_base[0], fixint(vs_base[1]));          vs_base[0] = elt(vs_base[0], fixint(vs_base[1]));
# Line 129  E: Line 128  E:
128          return(Cnil);          return(Cnil);
129  }  }
130    
131  void  LFD(siLelt_set)()
 siLelt_set()  
132  {  {
133          check_arg(3);          check_arg(3);
134          vs_base[0] = elt_set(vs_base[0], fixint(vs_base[1]), vs_base[2]);          vs_base[0] = elt_set(vs_base[0], fixint(vs_base[1]), vs_base[2]);
# Line 317  ILLEGAL_START_END: Line 315  ILLEGAL_START_END:
315  for the sequence ~S.", 3, start, end, sequence);  for the sequence ~S.", 3, start, end, sequence);
316  @)  @)
317    
318  void  LFD(Lcopy_seq)()
 Lcopy_seq()  
319  {  {
320          check_arg(1);          check_arg(1);
321          vs_push(small_fixnum(0));          vs_push(small_fixnum(0));
# Line 358  object x; Line 355  object x;
355          }          }
356  }  }
357    
358  void  LFD(Llength)()
 Llength()  
359  {  {
360          check_arg(1);          check_arg(1);
361          vs_base[0] = make_fixnum(length(vs_base[0]));          vs_base[0] = make_fixnum(length(vs_base[0]));
362  }  }
363    
364  void  LFD(Lreverse)()
 Lreverse()  
365  {  {
366          check_arg(1);          check_arg(1);
367          vs_base[0] = reverse(vs_base[0]);          vs_base[0] = reverse(vs_base[0]);
# Line 460  object seq; Line 455  object seq;
455          }          }
456  }  }
457    
458  void  LFD(Lnreverse)()
 Lnreverse()  
459  {  {
460          check_arg(1);          check_arg(1);
461          vs_base[0] = nreverse(vs_base[0]);          vs_base[0] = nreverse(vs_base[0]);

Legend:
Removed from v.1.3.4.1.4.1  
changed lines
  Added in v.1.3.4.1.4.2

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