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

Diff of /gcl/o/eval.c

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

revision 1.12.6.1 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.12.6.2 by camm, Thu Nov 6 16:16:50 2003 UTC
# Line 1180  DEFUNO_NEW("EVAL",object,fLeval,LISP Line 1180  DEFUNO_NEW("EVAL",object,fLeval,LISP
1180          return Ivs_values();          return Ivs_values();
1181  }  }
1182    
1183  void  LFD(Levalhook)(void)
 Levalhook(void)  
1184  {  {
1185          object env;          object env;
1186          bds_ptr old_bds_top = bds_top;          bds_ptr old_bds_top = bds_top;
# Line 1211  Levalhook(void) Line 1210  Levalhook(void)
1210          bds_unwind(old_bds_top);          bds_unwind(old_bds_top);
1211  }  }
1212    
1213  void  LFD(Lapplyhook)(void)
 Lapplyhook(void)  
1214  {  {
1215    
1216          object env;          object env;

Legend:
Removed from v.1.12.6.1  
changed lines
  Added in v.1.12.6.2

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