X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=src%2Fruntime%2Falpha-linux-os.c;h=99c88565eb8bd2d4bcde50e699d37fa904406243;hb=c3699db2053ff3b5ac6a98d4431c3789496002d8;hp=9f1e586e05132700342b3d9e9b26d5f0a27af659;hpb=b314841f7aa9e9236e8d5097a34f4f28349b408b;p=sbcl.git

diff --git a/src/runtime/alpha-linux-os.c b/src/runtime/alpha-linux-os.c
index 9f1e586..99c8856 100644
--- a/src/runtime/alpha-linux-os.c
+++ b/src/runtime/alpha-linux-os.c
@@ -42,9 +42,6 @@ size_t os_vm_page_size;
 #ifdef LISP_FEATURE_SB_THREAD
 #error "Define threading support functions"
 #else
-struct thread *arch_os_get_current_thread() {
-    return all_threads;
-}
 int arch_os_thread_init(struct thread *thread) {
     return 1;			/* success */
 }