Searched refs:eq_symbol (Results 1 – 11 of 11) sorted by relevance
/dports/games/abuse_sdl/abuse-0.8/src/lisp/ |
H A D | lisp_opt.cpp | 28 *eq_symbol, *zero_symbol, *eq0_symbol, *load_warning; variable 47 … if (lcar(list)==eq_symbol && (lcar(lcdr(list))==zero_symbol)) // simplify (eq 0 x) -> (eq0 x) in comp_optimize() 52 } else if (lcar(list)==eq_symbol && in comp_optimize() 123 eq_symbol = LSymbol::FindOrCreate("eq"); in l_comp_init()
|
/dports/math/reduce/Reduce-svn5758-src/csl/cslbase/ |
H A D | contest.cpp | 205 LispObject list_symbol, liststar_symbol, eq_symbol, eql_symbol; 306 &eq_symbol,
|
H A D | restart.cpp | 102 LispObject list_symbol, liststar_symbol, eq_symbol, eql_symbol; variable 914 eq_symbol = make_undefined_symbol("eq"); in set_up_functions() 2178 &eq_symbol,
|
H A D | lisphash.cpp | 323 { if (flavour == eq_symbol) flavour = fixnum_of_int(HASH_AS_EQ); in Lmkhash_3() 324 else if (flavour == eq_symbol) flavour = fixnum_of_int(HASH_AS_EQ); in Lmkhash_3()
|
H A D | externs.h | 417 extern LispObject list_symbol, liststar_symbol, eq_symbol, eql_symbol;
|
/dports/lang/chez-scheme/ChezScheme-9.5.4/c/ |
H A D | globals.h | 148 ptr eq_symbol; member
|
H A D | fasl.c | 268 S_protect(&S_G.eq_symbol); in S_fasl_init() 269 S_G.eq_symbol = S_intern((const unsigned char *)"eq"); in S_fasl_init() 777 INITPTRFIELD(ht,eq_hashtable_type_disp) = S_G.eq_symbol; in faslin()
|
/dports/lang/racket-minimal/racket-8.3/src/ChezScheme/c/ |
H A D | globals.h | 169 ptr eq_symbol; member
|
H A D | fasl.c | 291 S_protect(&S_G.eq_symbol); in S_fasl_init() 292 S_G.eq_symbol = S_intern((const unsigned char *)"eq"); in S_fasl_init() 900 INITPTRFIELD(ht,eq_hashtable_type_disp) = S_G.eq_symbol; in faslin()
|
/dports/lang/racket/racket-8.3/src/ChezScheme/c/ |
H A D | globals.h | 169 ptr eq_symbol; member
|
H A D | fasl.c | 291 S_protect(&S_G.eq_symbol); in S_fasl_init() 292 S_G.eq_symbol = S_intern((const unsigned char *)"eq"); in S_fasl_init() 900 INITPTRFIELD(ht,eq_hashtable_type_disp) = S_G.eq_symbol; in faslin()
|