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

Diff of /gcl/o/list.d

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

revision 1.24 by camm, Sun Nov 28 04:31:08 2004 UTC revision 1.25 by camm, Fri Jan 7 17:58:34 2005 UTC
# Line 785  nthcdr(fixnum n, object x) { Line 785  nthcdr(fixnum n, object x) {
785    
786          if (n < 0) {          if (n < 0) {
787                  vs_push(make_fixnum(n));                  vs_push(make_fixnum(n));
788                  FEwrong_type_argument(sLpositive_fixnum, vs_head);                  FEwrong_type_argument(sLnon_negative_fixnum, vs_head);
789          }          }
790          while (n-- > 0)          while (n-- > 0)
791                  if (endp_prop(x)) {                  if (endp_prop(x)) {
# Line 808  LFD(Llast)() { Line 808  LFD(Llast)() {
808                  return;                  return;
809          if (n==2) {          if (n==2) {
810                  if (type_of(vs_base[1])!=t_fixnum || (n=fix(vs_base[1]))<0)                  if (type_of(vs_base[1])!=t_fixnum || (n=fix(vs_base[1]))<0)
811                          FEwrong_type_argument(sLpositive_fixnum,vs_base[1]);                          FEwrong_type_argument(sLnon_negative_fixnum,vs_base[1]);
812                  vs_popp;                  vs_popp;
813          }                }      
814    

Legend:
Removed from v.1.24  
changed lines
  Added in v.1.25

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