-/* FIXME: I can see no really good reason these couldn't be merged, but haven't
- * tried. The sigprocmask() call would work just as well on alpha as it
- * presumably does on x86 -dan 2001.08.10
- */
-#if !(defined(LISP_FEATURE_X86) || defined(LISP_FEATURE_X86_64))
-void handle_breakpoint(int signal, siginfo_t *info, os_context_t *context)
-{
- lispobj code;
-
- fake_foreign_function_call(context);
-
- code = find_code(context);
- /* FIXME we're calling into Lisp with signals masked here. Is this
- * the right thing to do? */
- funcall3(SymbolFunction(HANDLE_BREAKPOINT),
- compute_offset(context, code),
- code,
- alloc_sap(context));