135 |
} |
} |
136 |
/* local entry for function UNIVERSAL-ERROR-HANDLER */ |
/* local entry for function UNIVERSAL-ERROR-HANDLER */ |
137 |
|
|
138 |
static object LI4(va_alist) |
static object LI4(object first,...) |
|
va_dcl |
|
139 |
{ |
{ |
140 |
va_list ap; |
va_list ap; |
141 |
int narg = VFUN_NARGS; VMB4 VMS4 VMV4 |
int narg = VFUN_NARGS; VMB4 VMS4 VMV4 |
142 |
{register object V24; |
{register object V24; |
143 |
Vcs[0]=Vcs[0]; |
Vcs[0]=Vcs[0]; |
144 |
va_start(ap); |
va_start(ap,first); |
145 |
narg= narg - 0; |
narg= narg - 0; |
146 |
V25 = list_vector(narg,ap); |
V25 = list_vector_new(narg,first,ap); |
147 |
V24= V25; |
V24= V25; |
148 |
if((symbol_value(VV[24]))==Cnil){ |
if((symbol_value(VV[24]))==Cnil){ |
149 |
goto T29;} |
goto T29;} |