return (((char *) CONTROL_STACK_START <= (char *) pointer) &&
((char *) pointer < (char *) current_control_stack_pointer));
}
return (((char *) CONTROL_STACK_START <= (char *) pointer) &&
((char *) pointer < (char *) current_control_stack_pointer));
}
reg_OCFP));
info->lra = (lispobj)(*os_context_register_addr(context, reg_LRA));
info->code = code_pointer(info->lra);
reg_OCFP));
info->lra = (lispobj)(*os_context_register_addr(context, reg_LRA));
info->code = code_pointer(info->lra);