28 |
|
|
29 |
#include "include.h" |
#include "include.h" |
30 |
|
|
31 |
object sLcompile, sLload, sLeval; |
object sLcompile, sLload, sLeval, sLcompile_tl, sLload_tl, sLexecute; |
32 |
object sLprogn; |
object sLprogn; |
33 |
|
|
34 |
|
|
132 |
if(endp(arg)) |
if(endp(arg)) |
133 |
FEtoo_few_argumentsF(arg); |
FEtoo_few_argumentsF(arg); |
134 |
for (ss = MMcar(arg); !endp(ss); ss = MMcdr(ss)) |
for (ss = MMcar(arg); !endp(ss); ss = MMcdr(ss)) |
135 |
if(MMcar(ss) == sLeval) |
if ( (MMcar(ss) == sLeval) || (MMcar(ss) == sLexecute) ) |
136 |
flag = TRUE; |
flag = TRUE; |
137 |
else if(MMcar(ss) != sLload && MMcar(ss) != sLcompile) |
else if ( MMcar(ss) != sLload && MMcar(ss) != sLcompile && |
138 |
|
MMcar(ss) != sLload_tl && MMcar(ss) != sLcompile_tl ) |
139 |
FEinvalid_form("~S is an undefined situation for EVAL-WHEN.", |
FEinvalid_form("~S is an undefined situation for EVAL-WHEN.", |
140 |
MMcar(ss)); |
MMcar(ss)); |
141 |
if(flag) { |
if(flag) { |
195 |
} |
} |
196 |
|
|
197 |
DEF_ORDINARY("COMPILE",sLcompile,LISP,""); |
DEF_ORDINARY("COMPILE",sLcompile,LISP,""); |
198 |
|
DEF_ORDINARY("COMPILE-TOPLEVEL",sLcompile_tl,KEYWORD,""); |
199 |
DEF_ORDINARY("DECLARE",sLdeclare,LISP,""); |
DEF_ORDINARY("DECLARE",sLdeclare,LISP,""); |
200 |
DEF_ORDINARY("EVAL",sLeval,LISP,""); |
DEF_ORDINARY("EVAL",sLeval,LISP,""); |
201 |
DEF_ORDINARY("EVAL",sLeval,LISP,""); |
DEF_ORDINARY("EXECUTE",sLexecute,KEYWORD,""); |
202 |
DEF_ORDINARY("FUNCTION-DOCUMENTATION",sSfunction_documentation,SI,""); |
DEF_ORDINARY("FUNCTION-DOCUMENTATION",sSfunction_documentation,SI,""); |
203 |
DEF_ORDINARY("LOAD",sLload,LISP,""); |
DEF_ORDINARY("LOAD",sLload,LISP,""); |
204 |
|
DEF_ORDINARY("LOAD-TOPLEVEL",sLload_tl,KEYWORD,""); |
205 |
DEF_ORDINARY("PROGN",sLprogn,LISP,""); |
DEF_ORDINARY("PROGN",sLprogn,LISP,""); |
206 |
DEF_ORDINARY("TYPEP",sLtypep,LISP,""); |
DEF_ORDINARY("TYPEP",sLtypep,LISP,""); |
207 |
DEF_ORDINARY("VALUES",sLvalues,LISP,""); |
DEF_ORDINARY("VALUES",sLvalues,LISP,""); |