Parent Directory | Revision Log | 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; |
|
savannah-hackers-public@gnu.org | ViewVC Help |
Powered by ViewVC 1.1.26 |