- undo_fake_foreign_function_call(context);
- return (void *)(lra-OTHER_POINTER_LOWTAG+sizeof(lispobj));
-}
-#else
-void *handle_fun_end_breakpoint(int signal, siginfo_t *info,
- os_context_t *context)
-{
- lispobj code, context_sap = alloc_sap(context);
- struct code *codeptr;
-
- fake_foreign_function_call(context);
-
- code = find_code(context);
- codeptr = (struct code *)native_pointer(code);
-
- /* Don't disallow recursive breakpoint traps. Otherwise, we can't
- * use debugger breakpoints anywhere in here. */
- sigprocmask(SIG_SETMASK, os_context_sigmask_addr(context), 0);
-
- funcall3(SymbolFunction(HANDLE_BREAKPOINT),
- compute_offset(context, code),
- code,
- context_sap);