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

Diff of /gcl/o/cfun.c

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

revision 1.5.6.1 by camm, Sun Sep 14 02:30:45 2003 UTC revision 1.5.6.2 by camm, Thu Nov 6 16:16:50 2003 UTC
# Line 249  DEFUN_NEW("MM",object,fSmm,SI Line 249  DEFUN_NEW("MM",object,fSmm,SI
249        
250    
251  object  object
252  make_function(char *s, void (*f)())  make_function_internal(char *s, void (*f)())
253  {  {
254          object x;          object x;
255          vs_mark;          vs_mark;
# Line 263  make_function(char *s, void (*f)()) Line 263  make_function(char *s, void (*f)())
263  }  }
264    
265  object  object
266  make_si_sfun(char *s, object (*f) (), int argd) {    make_si_sfun_internal(char *s, object (*f) (), int argd) {  
267    object x= make_si_ordinary(s);    object x= make_si_ordinary(s);
268    x->s.s_gfdef = make_sfun( x,f,argd, Cnil);    x->s.s_gfdef = make_sfun( x,f,argd, Cnil);
269    x->s.s_mflag = FALSE;    x->s.s_mflag = FALSE;
# Line 280  make_si_sfun(char *s, object (*f) (), in Line 280  make_si_sfun(char *s, object (*f) (), in
280    
281    
282  object  object
283  make_si_function(char *s, void (*f)())  make_si_function_internal(char *s, void (*f)())
284  {  {
285          object x;          object x;
286          vs_mark;          vs_mark;
# Line 297  make_si_function(char *s, void (*f)()) Line 297  make_si_function(char *s, void (*f)())
297    
298    
299  object  object
300  make_special_form(char *s, void (*f)())  make_special_form_internal(char *s, void (*f)())
301  {  {
302          object x;          object x;
303          x = make_ordinary(s);          x = make_ordinary(s);

Legend:
Removed from v.1.5.6.1  
changed lines
  Added in v.1.5.6.2

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