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 |
|
|
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 |
|
|
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 |
|
|
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 |
|
|
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); |