Changeset 481

Timestamp:

Feb 6, 2004, 11:38:35 AM (21 years ago)

Author:

Gary Byers

Message:

Probably better to have PROCESS-WAIT sleep explicitly, so that it doesn't
spend all of its time yielding.

File:

• trunk/ccl/level-1/l1-processes.lisp (modified) (1 diff)

trunk/ccl/level-1/l1-processes.lisp

@@ -392 +392 @@
                  (when (apply function args)
                    (return))
-                 (yield)))
+                   ;; Sleep for a tick
+                   (%nanosleep 0 *ns-per-tick*)))
           (setf (%process-whostate p) old-whostate)))))