X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Fhppa-arch.c;h=98ad085e449466c8220b23bdea688f1546327da8;hb=e0924e0c54b0a216560d67b9e85a077473bb5952;hp=9e8abb6e76e7b316134a95bb3036ca94f2a7fc10;hpb=8a19c6876412b8ad1cf729297c2a373d63a0d0ec;p=sbcl.git diff --git a/src/runtime/hppa-arch.c b/src/runtime/hppa-arch.c index 9e8abb6..98ad085 100644 --- a/src/runtime/hppa-arch.c +++ b/src/runtime/hppa-arch.c @@ -416,6 +416,7 @@ void arch_install_interrupt_handlers(void) undoably_install_low_level_interrupt_handler(SIGBUS,sigbus_handler); } + lispobj funcall0(lispobj function) { lispobj *args = current_control_stack_pointer;