Commit 9ec064ca authored by Daniel Kochmański's avatar Daniel Kochmański
Browse files

ecl_symbol_value: detect early symbol access during compilation

This test is executed only when ECL itself is compiled. It is to ensure early
notice of issues similar to #604.
parent 12df1255
......@@ -137,6 +137,13 @@ ecl_make_symbol(const char *s, const char *p)
cl_object
ecl_symbol_value(cl_object s)
{
#ifndef ECL_FINAL
/* Symbols are not initialized yet. This test is issued only during ECL
compilation to ensure, that we have no early references in the core. */
if(cl_num_symbols_in_core < 3) {
ecl_internal_error("SYMBOL-VALUE: symbols are not initialized yet.");
}
#endif
if (Null(s)) {
return s;
} else {
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment