diff --git a/src/lisp/os-common.c b/src/lisp/os-common.c index ff9cffb5e427ca09cb9c602bbc32190070cbc755..183d80882f4431565a326aa0b65a0156c3bda805 100755 --- a/src/lisp/os-common.c +++ b/src/lisp/os-common.c @@ -223,8 +223,9 @@ os_foreign_linkage_init(void) if (i == 0) { #if defined(sparc) if (type != LINKAGE_CODE_TYPE || strcmp(c_symbol_name, EXTERN_ALIEN_NAME("call_into_c"))) { - fprintf(stderr, "linkage_data is %s but expected call_into_c\n", - c_symbol_name); + fprintf(stderr, "linkage_data is %s but expected %s\n", + c_symbol_name, + EXTERN_ALIEN_NAME("call_into_c")); lose("First element of linkage_data is bogus.\n"); } arch_make_linkage_entry(i, (void*) call_into_c, 1);