Established intern bug is in getting, not setting; improved exceptions.
This commit is contained in:
parent
54f6f023c6
commit
a1c377bc7c
9 changed files with 241 additions and 97 deletions
10
src/init.c
10
src/init.c
|
|
@ -84,12 +84,18 @@ void maybe_bind_init_symbols( ) {
|
|||
if ( nilp( privileged_symbol_nil ) ) {
|
||||
privileged_symbol_nil = c_string_to_lisp_symbol( L"nil" );
|
||||
}
|
||||
// we can't make this string when we need it, because memory is then
|
||||
// exhausted!
|
||||
if ( nilp( privileged_string_memory_exhausted ) ) {
|
||||
// we can't make this string when we need it, because memory is then
|
||||
// exhausted!
|
||||
privileged_string_memory_exhausted =
|
||||
c_string_to_lisp_string( L"Memory exhausted." );
|
||||
}
|
||||
if ( nilp( privileged_keyword_location ) ) {
|
||||
privileged_keyword_location = c_string_to_lisp_keyword( L"location" );
|
||||
}
|
||||
if ( nilp( privileged_keyword_payload ) ) {
|
||||
privileged_keyword_location = c_string_to_lisp_keyword( L"payload" );
|
||||
}
|
||||
}
|
||||
|
||||
void free_init_symbols( ) {
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue