/[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.1.1.1 by wfs, Mon Dec 6 22:44:10 1999 UTC revision 1.2 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 37  Foundation, 675 Mass Ave, Cambridge, MA Line 37  Foundation, 675 Mass Ave, Cambridge, MA
37  object sSYB;  object sSYB;
38  object sSYZ;  object sSYZ;
39    
40    void
41    kwote_cdr(void)
   
   
   
   
   
   
 kwote_cdr()  
42  {  {
43          object x;          object x;
44    
# Line 64  KWOTE: Line 57  KWOTE:
57          vs_head = make_cons(sLquote, vs_head);          vs_head = make_cons(sLquote, vs_head);
58  }  }
59    
60  kwote_car()  void
61    kwote_car(void)
62  {  {
63          object x;          object x;
64    
# Line 94  KWOTE: Line 88  KWOTE:
88                  NCONC           the form should be applied to NCONC                  NCONC           the form should be applied to NCONC
89  */  */
90  int  int
91  backq_cdr(x)  backq_cdr(object x)
 object x;  
92  {  {
93          int a, d;          int a, d;
94    
# Line 116  object x; Line 109  object x;
109          if (d == QUOTE)          if (d == QUOTE)
110                  switch (a) {                  switch (a) {
111                  case QUOTE:                  case QUOTE:
112                          vs_pop;                          vs_popp;
113                          vs_head = x;                          vs_head = x;
114                          return(QUOTE);                          return(QUOTE);
115    
# Line 138  object x; Line 131  object x;
131    
132                  case APPEND:                  case APPEND:
133                          if (vs_head == Cnil) {                          if (vs_head == Cnil) {
134                                  vs_pop;                                  vs_popp;
135                                  return(EVAL);                                  return(EVAL);
136                          }                          }
137                          kwote_cdr();                          kwote_cdr();
# Line 147  object x; Line 140  object x;
140    
141                  case NCONC:                  case NCONC:
142                          if (vs_head == Cnil) {                          if (vs_head == Cnil) {
143                                  vs_pop;                                  vs_popp;
144                                  return(EVAL);                                  return(EVAL);
145                          }                          }
146                          kwote_cdr();                          kwote_cdr();
# Line 241  object x; Line 234  object x;
234    
235          default:          default:
236                  error("backquote botch");                  error("backquote botch");
237                    return(0);
238          }          }
239  }  }
240    
# Line 255  object x; Line 249  object x;
249                                  into the outer form                                  into the outer form
250  */  */
251  int  int
252  backq_car(x)  backq_car(object x)
 object x;  
253  {  {
254          int d;          int d;
255    
# Line 309  object x; Line 302  object x;
302  }  }
303    
304  object  object
305  backq(x)  backq(object x)
 object x;  
306  {  {
307          int a;          int a;
308    
# Line 322  object x; Line 314  object x;
314          return(vs_pop);          return(vs_pop);
315  }  }
316    
317  object fLcomma_reader(x0,x1)  object fLcomma_reader(object x0, object x1)
 object x0,x1;  
318  { object w;  { object w;
319          object in, c;          object in, c;
320    
# Line 347  object x0,x1; Line 338  object x0,x1;
338          RETURN1(x0);          RETURN1(x0);
339  }  }
340    
341  object fLbackquote_reader(x0,x1)  object fLbackquote_reader(object x0, object x1)
 object x0,x1;  
342  {  {
343          object in;          object in;
344    
# Line 377  DEF_ORDINARY("APPLY",sLapply,LISP,""); Line 367  DEF_ORDINARY("APPLY",sLapply,LISP,"");
367  DEF_ORDINARY("VECTOR",sLvector,LISP,"");  DEF_ORDINARY("VECTOR",sLvector,LISP,"");
368    
369    
370  init_backq()  void
371    init_backq(void)
372  {  {
373          object r;          object r;
374    

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

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