diff --git a/code/exports.lisp b/code/exports.lisp index bae4082acc3445185effbe6c890731d793d8f717..3d0b0980986126303b6db9c32767e7252e309742 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 d1e41b547092d2af71526d5a60a15a0866224d35..f36dbfa8fbd7aed78ad1a76d603ad0f9ccde6fdd 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")))