package snafu on unithreaded build
authorNikodemus Siivola <nikodemus@random-state.net>
Fri, 11 Nov 2011 16:51:18 +0000 (18:51 +0200)
committerNikodemus Siivola <nikodemus@random-state.net>
Fri, 11 Nov 2011 16:51:18 +0000 (18:51 +0200)
src/code/target-thread.lisp

index 553dc67..53d2671 100644 (file)
@@ -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))