mirrors/ecl
1
Fork 0
mirror of https://gitlab.com/embeddable-common-lisp/ecl.git synced 2026-01-14 21:32:49 -08:00
Code Issues Projects Releases Packages Wiki Activity

Added an 'unlikely' in ecl_symbol_value.

Browse source
This commit is contained in:
Juan Jose Garcia Ripoll 2011-11-05 20:16:59 +01:00
parent 96789977a8
commit 0d41a1de04
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
src/c/symbol.d
View file

@ -17,6 +17,7 @@
#include <ecl/ecl.h>
#include <ecl/ecl-inl.h>
#include <ecl/internal.h>
/******************************* ------- ******************************/
/* FIXME! CURRENTLY SYMBOLS ARE RESTRICTED TO HAVE NON-UNICODE NAMES */
@ -138,7 +139,7 @@ ecl_symbol_value(cl_object s)
/* FIXME: Should we check symbol type? */
const cl_env_ptr the_env = ecl_process_env();
cl_object value = ECL_SYM_VAL(the_env, s);
if (value == OBJNULL)
unlikely_if (value == OBJNULL)
FEunbound_variable(s);
return value;
}
@ -358,7 +359,7 @@ cl_symbol_name(cl_object x)
cl_object output, s;
int intern_flag;
@
if (ecl_unlikely(!ECL_STRINGP(prefix)))
unlikely_if (!ECL_STRINGP(prefix))
FEwrong_type_nth_arg(@[gentemp], 1, prefix, @[string]);
pack = si_coerce_to_package(pack);
ONCE_MORE: