/[gcl]/gcl/o/toplevel.c
ViewVC logotype

Diff of /gcl/o/toplevel.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.4 by camm, Sat Feb 15 00:38:28 2003 UTC revision 1.5 by mjthomas, Tue Jul 8 06:50:02 2003 UTC
# Line 28  Foundation, 675 Mass Ave, Cambridge, MA Line 28  Foundation, 675 Mass Ave, Cambridge, MA
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    
# Line 132  Feval_when(object arg) Line 132  Feval_when(object arg)
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) {
# Line 194  Fthe(object args) Line 195  Fthe(object args)
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,"");

Legend:
Removed from v.1.4  
changed lines
  Added in v.1.5

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26