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

Diff of /gcl/o/backq.c

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

revision 1.4 by camm, Sun Sep 14 02:43:07 2003 UTC revision 1.5 by camm, Thu Oct 6 20:30:08 2005 UTC
# Line 48  kwote_cdr(void) Line 48  kwote_cdr(void)
48                      x->s.s_dbind == x)                      x->s.s_dbind == x)
49                          return;                          return;
50                  goto KWOTE;                  goto KWOTE;
51          } else if (type_of(x) == t_cons || type_of(x) == t_vector)          } else if (consp(x) || type_of(x) == t_vector)
52                  goto KWOTE;                  goto KWOTE;
53          return;          return;
54    
# Line 68  kwote_car(void) Line 68  kwote_car(void)
68                      x->s.s_dbind == x)                      x->s.s_dbind == x)
69                          return;                          return;
70                  goto KWOTE;                  goto KWOTE;
71          } else if (type_of(x) == t_cons || type_of(x) == t_vector)          } else if (consp(x) || type_of(x) == t_vector)
72                  goto KWOTE;                  goto KWOTE;
73          return;          return;
74    
# Line 94  backq_cdr(object x) Line 94  backq_cdr(object x)
94    
95          cs_check(x);          cs_check(x);
96    
97          if (type_of(x) != t_cons) {          if (!consp(x)) {
98                  vs_push(x);                  vs_push(x);
99                  return(QUOTE);                  return(QUOTE);
100          }          }
# Line 118  backq_cdr(object x) Line 118  backq_cdr(object x)
118                                  stack_cons();                                  stack_cons();
119                                  return(LIST);                                  return(LIST);
120                          }                          }
121                          if (type_of(vs_head) == t_cons &&                          if (consp(vs_head) &&
122                              vs_head->c.c_cdr == Cnil) {                              vs_head->c.c_cdr == Cnil) {
123                                  vs_head = vs_head->c.c_car;                                  vs_head = vs_head->c.c_car;
124                                  kwote_cdr();                                  kwote_cdr();
# Line 255  backq_car(object x) Line 255  backq_car(object x)
255    
256          cs_check(x);          cs_check(x);
257    
258          if (type_of(x) != t_cons) {          if (!consp(x)) {
259                  vs_push(x);                  vs_push(x);
260                  return(QUOTE);                  return(QUOTE);
261          }          }

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

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