Index: /trunk/ccl/level-1/linux-files.lisp
===================================================================
--- /trunk/ccl/level-1/linux-files.lisp	(revision 5983)
+++ /trunk/ccl/level-1/linux-files.lisp	(revision 5984)
@@ -1131,2 +1131,10 @@
                   1)))
             )))
+
+(def-load-pointers spin-count ()
+  (if (eql 1 (cpu-count))
+    (setq *spin-lock-tries* 1)
+    (setq *spin-lock-tries 1024)))
+
+(defun yield ()
+  (#_sched_yield))