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

Diff of /gcl/o/reference.c

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

revision 1.1.1.1 by wfs, Mon Dec 6 22:44:12 1999 UTC revision 1.2 by camm, Fri Jul 12 22:00:49 2002 UTC
# Line 74  Lsymbol_function() Line 74  Lsymbol_function()
74          if (type_of(sym) != t_symbol)          if (type_of(sym) != t_symbol)
75                  not_a_symbol(sym);                  not_a_symbol(sym);
76          if (sym->s.s_sfdef != NOT_SPECIAL) {          if (sym->s.s_sfdef != NOT_SPECIAL) {
77                  vs_push(make_fixnum((int)(sym->s.s_sfdef)));                  vs_push(make_fixnum((long)(sym->s.s_sfdef)));
78                  vs_base[0] = sLspecial;                  vs_base[0] = sLspecial;
79                  stack_cons();                  stack_cons();
80                  return;                  return;

Legend:
Removed from v.1.1.1.1  
changed lines
  Added in v.1.2

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