0.8.0.78.vector-nil-string.12:

[sbcl.git] / src / runtime / hppa-arch.c

diff --git a/src/runtime/hppa-arch.c b/src/runtime/hppa-arch.c
index 9e8abb6..8d2ae21 100644 (file)
--- a/src/runtime/hppa-arch.c
+++ b/src/runtime/hppa-arch.c
@@ -416,6 +416,12 @@ void arch_install_interrupt_handlers(void)
     undoably_install_low_level_interrupt_handler(SIGBUS,sigbus_handler);
 }
 
+void get_spinlock(lispobj *word, int value) {
+    /* FIXME: dummy definition */
+    *word = value;
+}
+
+
 lispobj funcall0(lispobj function)
 {
     lispobj *args = current_control_stack_pointer;