From 3c2d1f28e34911b6081acbedebda31c8f8892e5c Mon Sep 17 00:00:00 2001
From: dtc <dtc>
Date: Sat, 4 Dec 1999 15:59:35 +0000
Subject: [PATCH] Enable unix-sched-yield for Linux.

---
 code/exports.lisp     | 4 ++--
 code/unix-glibc2.lisp | 7 +++----
 2 files changed, 5 insertions(+), 6 deletions(-)

diff --git a/code/exports.lisp b/code/exports.lisp
index bae4082ac..3d0b09809 100644
--- a/code/exports.lisp
+++ b/code/exports.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.165 1999/12/04 15:58:45 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/exports.lisp,v 1.166 1999/12/04 15:59:35 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -220,7 +220,7 @@
              "UNIX-IOCTL" "UNIX-ISATTY" "UNIX-LINK" "UNIX-LISTEN" "UNIX-LSEEK"
              "UNIX-LSTAT" "UNIX-MKDIR" "UNIX-OPEN" "UNIX-PATHNAME" "UNIX-PID"
              "UNIX-PIPE" "UNIX-READ" "UNIX-READLINK" "UNIX-RECV" "UNIX-RENAME"
-             "UNIX-RMDIR" "UNIX-SELECT" "UNIX-SEND"
+             "UNIX-RMDIR" "UNIX-SCHED-YIELD" "UNIX-SELECT" "UNIX-SEND"
 	     "UNIX-SETPGID" "UNIX-SETPGRP"
              "UNIX-SETREGID" "UNIX-SETREUID" "UNIX-SOCKET" "UNIX-STAT"
              "UNIX-SYMLINK" "UNIX-SYNC"
diff --git a/code/unix-glibc2.lisp b/code/unix-glibc2.lisp
index d1e41b547..f36dbfa8f 100644
--- a/code/unix-glibc2.lisp
+++ b/code/unix-glibc2.lisp
@@ -5,7 +5,7 @@
 ;;; Carnegie Mellon University, and has been placed in the public domain.
 ;;;
 (ext:file-comment
-  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix-glibc2.lisp,v 1.7 1999/09/12 14:24:16 dtc Exp $")
+  "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix-glibc2.lisp,v 1.8 1999/12/04 15:59:35 dtc Exp $")
 ;;;
 ;;; **********************************************************************
 ;;;
@@ -135,7 +135,7 @@
 	  KBDSCLICK FIONREAD	  unix-exit unix-stat unix-lstat unix-fstat
 	  unix-getrusage unix-fast-getrusage rusage_self rusage_children
 	  unix-gettimeofday
-	  unix-utimes unix-setreuid
+	  unix-utimes unix-sched-yield unix-setreuid
 	  unix-setregid
 	  unix-getpid unix-getppid
 	  unix-getgid unix-getegid unix-getpgrp unix-setpgrp unix-getuid
@@ -1283,8 +1283,7 @@ length LEN and type TYPE."
   (int-syscall ("sched_getscheduler" pid-t)
 		pid))
 
-#+nil
-(defun unix-sched_yield ()
+(defun unix-sched-yield ()
   "Retrieve scheduling algorithm for a particular purpose."
   (int-syscall ("sched_yield")))
 
-- 
GitLab