28 |
|
|
29 |
#include "include.h" |
#include "include.h" |
30 |
|
|
31 |
|
static object |
32 |
|
setf(object,object); |
33 |
|
|
34 |
object sLsetf; |
object sLsetf; |
35 |
|
|
36 |
object sLget; |
object sLget; |
84 |
} |
} |
85 |
} |
} |
86 |
|
|
87 |
void |
static void |
88 |
Fsetq(object form) |
Fsetq(object form) |
89 |
{ |
{ |
90 |
object ans; |
object ans; |
106 |
} |
} |
107 |
} |
} |
108 |
|
|
109 |
void |
static void |
110 |
Fpsetq(object arg) |
Fpsetq(object arg) |
111 |
{ |
{ |
112 |
object *old_top = vs_top; |
object *old_top = vs_top; |
125 |
vs_push(Cnil); |
vs_push(Cnil); |
126 |
} |
} |
127 |
|
|
128 |
DEFUNO("SET",object,fLset,LISP |
DEFUNO_NEW("SET",object,fLset,LISP |
129 |
,2,2,NONE,OO,OO,OO,OO,Lset,"")(symbol,value) |
,2,2,NONE,OO,OO,OO,OO,void,Lset,(object symbol,object value),"") |
130 |
object symbol,value; |
|
131 |
{ |
{ |
132 |
/* 2 args */ |
/* 2 args */ |
133 |
if (type_of(symbol) != t_symbol) |
if (type_of(symbol) != t_symbol) |
139 |
RETURN1(value); |
RETURN1(value); |
140 |
} |
} |
141 |
|
|
142 |
DEFUNO("FSET",object,fSfset,SI |
DEFUNO_NEW("FSET",object,fSfset,SI |
143 |
,2,2,NONE,OO,OO,OO,OO,siLfset,"")(sym,function) |
,2,2,NONE,OO,OO,OO,OO,void,siLfset,(object sym,object function),"") |
144 |
object sym,function; |
|
145 |
{ |
{ |
146 |
/* 2 args */ |
/* 2 args */ |
147 |
if (type_of(sym) != t_symbol) |
if (type_of(sym) != t_symbol) |
183 |
RETURN1(function); |
RETURN1(function); |
184 |
} |
} |
185 |
|
|
186 |
void |
static void |
187 |
Fmultiple_value_setq(object form) |
Fmultiple_value_setq(object form) |
188 |
{ |
{ |
189 |
object vars; |
object vars; |
207 |
vs_top = vs_base+1; |
vs_top = vs_base+1; |
208 |
} |
} |
209 |
|
|
210 |
DEFUNO("MAKUNBOUND",object,fLmakunbound,LISP |
DEFUNO_NEW("MAKUNBOUND",object,fLmakunbound,LISP |
211 |
,1,1,NONE,OO,OO,OO,OO,Lmakunbound,"")(sym) |
,1,1,NONE,OO,OO,OO,OO,void,Lmakunbound,(object sym),"") |
212 |
object sym; |
|
213 |
{ |
{ |
214 |
/* 1 args */ |
/* 1 args */ |
215 |
if (type_of(sym) != t_symbol) |
if (type_of(sym) != t_symbol) |
223 |
|
|
224 |
object sStraced; |
object sStraced; |
225 |
|
|
226 |
DEFUNO("FMAKUNBOUND",object,fLfmakunbound,LISP |
DEFUNO_NEW("FMAKUNBOUND",object,fLfmakunbound,LISP |
227 |
,1,1,NONE,OO,OO,OO,OO,Lfmakunbound,"")(sym) |
,1,1,NONE,OO,OO,OO,OO,void,Lfmakunbound,(object sym),"") |
228 |
object sym; |
|
229 |
{ |
{ |
230 |
/* 1 args */ |
/* 1 args */ |
231 |
if(type_of(sym) != t_symbol) |
if(type_of(sym) != t_symbol) |
250 |
RETURN1(sym); |
RETURN1(sym); |
251 |
} |
} |
252 |
|
|
253 |
void |
static void |
254 |
Fsetf(object form) |
Fsetf(object form) |
255 |
{ |
{ |
256 |
object result,*t,*t1; |
object result,*t,*t1; |
283 |
vs_top = old_top + 1; \ |
vs_top = old_top + 1; \ |
284 |
} |
} |
285 |
|
|
286 |
object |
static object |
287 |
setf(object place, object form) |
setf(object place, object form) |
288 |
{ |
{ |
289 |
object fun; |
object fun; |
402 |
return Ieval(vs_base[0]); |
return Ieval(vs_base[0]); |
403 |
} |
} |
404 |
|
|
405 |
void |
static void |
406 |
Fpush(object form) |
Fpush(object form) |
407 |
{ |
{ |
408 |
object var; |
object var; |
433 |
eval(vs_base[0]); |
eval(vs_base[0]); |
434 |
} |
} |
435 |
|
|
436 |
void |
static void |
437 |
Fpop(object form) |
Fpop(object form) |
438 |
{ |
{ |
439 |
object var; |
object var; |
462 |
eval(vs_base[0]); |
eval(vs_base[0]); |
463 |
} |
} |
464 |
|
|
465 |
void |
static void |
466 |
Fincf(object form) |
Fincf(object form) |
467 |
{ |
{ |
468 |
object var; |
object var; |
500 |
eval(vs_base[0]); |
eval(vs_base[0]); |
501 |
} |
} |
502 |
|
|
503 |
void |
static void |
504 |
Fdecf(object form) |
Fdecf(object form) |
505 |
{ |
{ |
506 |
object var; |
object var; |
553 |
|
|
554 |
DEF_ORDINARY("CLEAR-COMPILER-PROPERTIES",sSclear_compiler_properties,SI,""); |
DEF_ORDINARY("CLEAR-COMPILER-PROPERTIES",sSclear_compiler_properties,SI,""); |
555 |
|
|
556 |
DEFUNO("CLEAR-COMPILER-PROPERTIES",object,fSclear_compiler_properties,SI |
DEFUN_NEW("CLEAR-COMPILER-PROPERTIES",object,fSclear_compiler_properties,SI |
557 |
,2,2,NONE,OO,OO,OO,OO,siLclear_compiler_properties,"")(x0,x1) |
,2,2,NONE,OO,OO,OO,OO,(object x0,object x1),"") |
558 |
object x0,x1; |
|
559 |
{ |
{ |
560 |
/* 2 args */ |
/* 2 args */ |
561 |
RETURN1(Cnil); |
RETURN1(Cnil); |