X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=src%2Fruntime%2Falpha-arch.c;h=20f86a468ffc8e6799bcce1840b91c1aa67aad40;hb=69550d1ce4a94faec95a651f3f0c1e884966a496;hp=4402723b04eed6ae6130bab318e5dacc25726389;hpb=92dcf81a15c2b2b021d66d6d3e5545b9c150f250;p=sbcl.git

diff --git a/src/runtime/alpha-arch.c b/src/runtime/alpha-arch.c
index 4402723..20f86a4 100644
--- a/src/runtime/alpha-arch.c
+++ b/src/runtime/alpha-arch.c
@@ -369,6 +369,11 @@ void arch_install_interrupt_handlers()
     undoably_install_low_level_interrupt_handler(SIGTRAP, sigtrap_handler);
 }
 
+void get_spinlock(lispobj *word, int value) {
+    /* FIXME: dummy definition */
+    *word = value;
+}
+
 extern lispobj call_into_lisp(lispobj fun, lispobj *args, int nargs);
 
 lispobj funcall0(lispobj function)