From: Nikodemus Siivola <nikodemus@random-state.net>
Date: Fri, 11 Nov 2011 16:51:18 +0000 (+0200)
Subject: package snafu on unithreaded build
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=a54d8af9a66ca26ff53f5bcde774a415448d28ab;p=sbcl.git

package snafu on unithreaded build
---

diff --git a/src/code/target-thread.lisp b/src/code/target-thread.lisp
index 553dc67..53d2671 100644
--- a/src/code/target-thread.lisp
+++ b/src/code/target-thread.lisp
@@ -737,7 +737,7 @@ around the call, checking the the associated data:
   (declare (ignore queue))
   (assert mutex)
   #!-sb-thread
-  (wait-for nil :timeout timeout) ; Yeah...
+  (sb!ext:wait-for nil :timeout timeout) ; Yeah...
   #!+sb-thread
   (let ((me *current-thread*))
     (barrier (:read))