diff --git a/src/lisp/coreparse.c b/src/lisp/coreparse.c index efa53c236e9fd35932da7a9968a4582bccc8f98d..f150c5b83c4aae8f20b0f53423318d3186f12063 100644 --- a/src/lisp/coreparse.c +++ b/src/lisp/coreparse.c @@ -57,8 +57,13 @@ process_directory(int fd, long *ptr, int count) switch (id) { case DYNAMIC_SPACE_ID: if (addr != (os_vm_address_t) dynamic_0_space - && addr != (os_vm_address_t) dynamic_1_space) - printf("Strange ... dynamic space lossage.\n"); + && addr != (os_vm_address_t) dynamic_1_space) { + printf("Strange ... dynamic space lossage: addr = %p, expected %p or %p\n", + addr, + (os_vm_address_t) dynamic_0_space, + (os_vm_address_t) dynamic_1_space); + } + current_dynamic_space = (lispobj *) addr; #if defined(ibmrt) || defined(i386) || defined(__x86_64) SetSymbolValue(ALLOCATION_POINTER, (lispobj) free_pointer);