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