/[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.4.4.1.4.1 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.4.4.1.4.2 by camm, Thu Nov 6 16:16:52 2003 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  void  LFD(Lvalues)(void)
 Lvalues(void)  
32  {  {
33          if (vs_base == vs_top) vs_base[0] = Cnil;          if (vs_base == vs_top) vs_base[0] = Cnil;
34  }  }
35    
36  void  LFD(Lvalues_list)(void)
 Lvalues_list(void)  
37  {  {
38    
39          object list;          object list;
# Line 51  Lvalues_list(void) Line 49  Lvalues_list(void)
49  }  }
50    
51  static void  static void
52  Fmultiple_value_list(object form)  FFN(Fmultiple_value_list)(object form)
53  {  {
54    
55          object *top = vs_top;          object *top = vs_top;
# Line 71  Fmultiple_value_list(object form) Line 69  Fmultiple_value_list(object form)
69  }  }
70    
71  static void  static void
72  Fmultiple_value_call(object form)  FFN(Fmultiple_value_call)(object form)
73  {  {
74    
75          object *top = vs_top;          object *top = vs_top;
# Line 100  Fmultiple_value_call(object form) Line 98  Fmultiple_value_call(object form)
98  }  }
99    
100  static void  static void
101  Fmultiple_value_prog1(object forms)  FFN(Fmultiple_value_prog1)(object forms)
102  {  {
103    
104          object *top;          object *top;

Legend:
Removed from v.1.4.4.1.4.1  
changed lines
  Added in v.1.4.4.1.4.2

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