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

Diff of /gcl/o/multival.c

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

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:12 1999 UTC revision 1.2 by camm, Sat Jul 20 07:10:55 2002 UTC
# Line 28  Foundation, 675 Mass Ave, Cambridge, MA Line 28  Foundation, 675 Mass Ave, Cambridge, MA
28    
29  #include "include.h"  #include "include.h"
30    
31  Lvalues()  void
32    Lvalues(void)
33  {  {
34          if (vs_base == vs_top) vs_base[0] = Cnil;          if (vs_base == vs_top) vs_base[0] = Cnil;
35  }  }
36    
37  Lvalues_list()  void
38    Lvalues_list(void)
39  {  {
40          object endp_temp;          object endp_temp;
41    
# Line 49  Lvalues_list() Line 51  Lvalues_list()
51          if (vs_top == vs_base) vs_base[0] = Cnil;          if (vs_top == vs_base) vs_base[0] = Cnil;
52  }  }
53    
54  Fmultiple_value_list(form)  void
55  object form;  Fmultiple_value_list(object form)
56  {  {
57          object endp_temp;          object endp_temp;
58    
# Line 70  object form; Line 72  object form;
72          vs_top = top+1;          vs_top = top+1;
73  }  }
74    
75  Fmultiple_value_call(form)  void
76  object form;  Fmultiple_value_call(object form)
77  {  {
78          object endp_temp;          object endp_temp;
79    
# Line 100  object form; Line 102  object form;
102          super_funcall(top[0]);          super_funcall(top[0]);
103  }  }
104    
105  Fmultiple_value_prog1(forms)  void
106  object forms;  Fmultiple_value_prog1(object forms)
107  {  {
108          object endp_temp;          object endp_temp;
109    
# Line 130  object forms; Line 132  object forms;
132  }  }
133    
134                    
135  init_multival()  void
136    init_multival(void)
137  {  {
138          make_constant("MULTIPLE-VALUES-LIMIT",make_fixnum(32));          make_constant("MULTIPLE-VALUES-LIMIT",make_fixnum(32));
139          make_function("VALUES",Lvalues);          make_function("VALUES",Lvalues);

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