/[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.2 by camm, Sat Jul 20 07:10:55 2002 UTC revision 1.3 by camm, Sat Feb 15 00:38:28 2003 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  static void
41  kwote_cdr(void)  kwote_cdr(void)
42  {  {
43          object x;          object x;
# Line 57  KWOTE: Line 57  KWOTE:
57          vs_head = make_cons(sLquote, vs_head);          vs_head = make_cons(sLquote, vs_head);
58  }  }
59    
60  void  static void
61  kwote_car(void)  kwote_car(void)
62  {  {
63          object x;          object x;
# Line 87  KWOTE: Line 87  KWOTE:
87                  APPEND          the form should be applied to APPEND                  APPEND          the form should be applied to APPEND
88                  NCONC           the form should be applied to NCONC                  NCONC           the form should be applied to NCONC
89  */  */
90  int  static int
91  backq_cdr(object x)  backq_cdr(object x)
92  {  {
93          int a, d;          int a, d;
# Line 301  backq_car(object x) Line 301  backq_car(object x)
301          return(EVAL);          return(EVAL);
302  }  }
303    
304  object  static object
305  backq(object x)  backq(object x)
306  {  {
307          int a;          int a;
# Line 314  backq(object x) Line 314  backq(object x)
314          return(vs_pop);          return(vs_pop);
315  }  }
316    
317  object fLcomma_reader(object x0, object x1)  static object fLcomma_reader(object x0, object x1)
318  { object w;  { object w;
319          object in, c;          object in, c;
320    
# Line 338  object fLcomma_reader(object x0, object Line 338  object fLcomma_reader(object x0, object
338          RETURN1(x0);          RETURN1(x0);
339  }  }
340    
341  object fLbackquote_reader(object x0, object x1)  static object fLbackquote_reader(object x0, object x1)
342  {  {
343          object in;          object in;
344    

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

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