85 |
} |
} |
86 |
|
|
87 |
static void |
static void |
88 |
Fsetq(object form) |
FFN(Fsetq)(object form) |
89 |
{ |
{ |
90 |
object ans; |
object ans; |
91 |
if (endp(form)) { |
if (endp(form)) { |
107 |
} |
} |
108 |
|
|
109 |
static void |
static void |
110 |
Fpsetq(object arg) |
FFN(Fpsetq)(object arg) |
111 |
{ |
{ |
112 |
object *old_top = vs_top; |
object *old_top = vs_top; |
113 |
object *top; |
object *top; |
182 |
|
|
183 |
RETURN1(function); |
RETURN1(function); |
184 |
} |
} |
185 |
|
#ifdef STATIC_FUNCTION_POINTERS |
186 |
|
object |
187 |
|
fSfset(object sym,object function) { |
188 |
|
return FFN(fSfset)(sym,function); |
189 |
|
} |
190 |
|
#endif |
191 |
|
|
192 |
static void |
static void |
193 |
Fmultiple_value_setq(object form) |
FFN(Fmultiple_value_setq)(object form) |
194 |
{ |
{ |
195 |
object vars; |
object vars; |
196 |
int n, i; |
int n, i; |
257 |
} |
} |
258 |
|
|
259 |
static void |
static void |
260 |
Fsetf(object form) |
FFN(Fsetf)(object form) |
261 |
{ |
{ |
262 |
object result,*t,*t1; |
object result,*t,*t1; |
263 |
if (endp(form)) { |
if (endp(form)) { |
409 |
} |
} |
410 |
|
|
411 |
static void |
static void |
412 |
Fpush(object form) |
FFN(Fpush)(object form) |
413 |
{ |
{ |
414 |
object var; |
object var; |
415 |
|
|
440 |
} |
} |
441 |
|
|
442 |
static void |
static void |
443 |
Fpop(object form) |
FFN(Fpop)(object form) |
444 |
{ |
{ |
445 |
object var; |
object var; |
446 |
|
|
469 |
} |
} |
470 |
|
|
471 |
static void |
static void |
472 |
Fincf(object form) |
FFN(Fincf)(object form) |
473 |
{ |
{ |
474 |
object var; |
object var; |
475 |
object one_plus(object x), number_plus(object x, object y); |
object one_plus(object x), number_plus(object x, object y); |
507 |
} |
} |
508 |
|
|
509 |
static void |
static void |
510 |
Fdecf(object form) |
FFN(Fdecf)(object form) |
511 |
{ |
{ |
512 |
object var; |
object var; |
513 |
object one_minus(object x), number_minus(object x, object y); |
object one_minus(object x), number_minus(object x, object y); |
545 |
} |
} |
546 |
|
|
547 |
|
|
548 |
object |
/* object */ |
549 |
clear_compiler_properties(object sym, object code) |
/* clear_compiler_properties(object sym, object code) */ |
550 |
{ object tem; |
/* { object tem; */ |
551 |
VFUN_NARGS=2; fSuse_fast_links(Cnil,sym); |
/* VFUN_NARGS=2; fSuse_fast_links(Cnil,sym); */ |
552 |
tem = getf(sym->s.s_plist,sStraced,Cnil); |
/* tem = getf(sym->s.s_plist,sStraced,Cnil); */ |
553 |
if (sSAinhibit_macro_specialA && sSAinhibit_macro_specialA->s.s_dbind != Cnil) |
/* if (sSAinhibit_macro_specialA && sSAinhibit_macro_specialA->s.s_dbind != Cnil) */ |
554 |
(void)ifuncall2(sSclear_compiler_properties, sym,code); |
/* (void)ifuncall2(sSclear_compiler_properties, sym,code); */ |
555 |
if (tem != Cnil) return tem; |
/* if (tem != Cnil) return tem; */ |
556 |
return sym; |
/* return sym; */ |
557 |
|
|
558 |
} |
/* } */ |
559 |
|
|
560 |
DEF_ORDINARY("CLEAR-COMPILER-PROPERTIES",sSclear_compiler_properties,SI,""); |
DEF_ORDINARY("CLEAR-COMPILER-PROPERTIES",sSclear_compiler_properties,SI,""); |
561 |
|
|
594 |
make_special_form("SETQ", Fsetq); |
make_special_form("SETQ", Fsetq); |
595 |
make_special_form("PSETQ", Fpsetq); |
make_special_form("PSETQ", Fpsetq); |
596 |
make_special_form("MULTIPLE-VALUE-SETQ", Fmultiple_value_setq); |
make_special_form("MULTIPLE-VALUE-SETQ", Fmultiple_value_setq); |
597 |
make_special_form("SETF", Fsetf); |
sLsetf=make_special_form("SETF", Fsetf); |
598 |
make_special_form("PUSH", Fpush); |
sLpush=make_special_form("PUSH", Fpush); |
599 |
make_special_form("POP", Fpop); |
sLpop=make_special_form("POP", Fpop); |
600 |
make_special_form("INCF", Fincf); |
sLincf=make_special_form("INCF", Fincf); |
601 |
make_special_form("DECF", Fdecf); |
sLdecf=make_special_form("DECF", Fdecf); |
602 |
|
|
603 |
} |
} |