From afa250280845755794c7a7078e79f5bf64c7d7fe Mon Sep 17 00:00:00 2001 From: pw <pw> Date: Thu, 22 Feb 2001 20:31:50 +0000 Subject: [PATCH] Fixup some of the errno names for modern BSD. --- code/unix.lisp | 24 +++++++++++++----------- 1 file changed, 13 insertions(+), 11 deletions(-) diff --git a/code/unix.lisp b/code/unix.lisp index 2d9d56bf6..742602296 100644 --- a/code/unix.lisp +++ b/code/unix.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.lisp,v 1.69 2001/01/23 17:21:34 dtc Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.70 2001/02/22 20:31:50 pw Exp $") ;;; ;;; ********************************************************************** ;;; @@ -536,22 +536,23 @@ ;;; From <errno.h> ;;; (def-unix-error ESUCCESS 0 "Successful") -(def-unix-error EPERM 1 #-linux "Not owner" #+linux "Operation not permitted") +(def-unix-error EPERM 1 "Operation not permitted") (def-unix-error ENOENT 2 "No such file or directory") (def-unix-error ESRCH 3 "No such process") (def-unix-error EINTR 4 "Interrupted system call") (def-unix-error EIO 5 "I/O error") -(def-unix-error ENXIO 6 "No such device or address") +(def-unix-error ENXIO 6 "Device not configured" (def-unix-error E2BIG 7 "Arg list too long") (def-unix-error ENOEXEC 8 "Exec format error") -(def-unix-error EBADF 9 "Bad file number") -(def-unix-error ECHILD 10 "No children") -(def-unix-error EAGAIN 11 #-linux "No more processes" #+linux "Try again") -(def-unix-error ENOMEM 12 #-linux "Not enough core" #+linux "Out of memory") +(def-unix-error EBADF 9 "Bad file descriptor") +(def-unix-error ECHILD 10 "No child process") +#+bsd(def-unix-error EDEADLK 11 "Resource deadlock avoided") +#-bsd(def-unix-error EAGAIN 11 #-linux "No more processes" #+linux "Try again") +(def-unix-error ENOMEM 12 "Out of memory") (def-unix-error EACCES 13 "Permission denied") (def-unix-error EFAULT 14 "Bad address") (def-unix-error ENOTBLK 15 "Block device required") -(def-unix-error EBUSY 16 #-linux "Mount device busy" #+linux "Device or resource busy") +(def-unix-error EBUSY 16 "Device or resource busy") (def-unix-error EEXIST 17 "File exists") (def-unix-error EXDEV 18 "Cross-device link") (def-unix-error ENODEV 19 "No such device") @@ -560,7 +561,7 @@ (def-unix-error EINVAL 22 "Invalid argument") (def-unix-error ENFILE 23 "File table overflow") (def-unix-error EMFILE 24 "Too many open files") -(def-unix-error ENOTTY 25 "Not a typewriter") +(def-unix-error ENOTTY 25 "Inappropriate ioctl for device") (def-unix-error ETXTBSY 26 "Text file busy") (def-unix-error EFBIG 27 "File too large") (def-unix-error ENOSPC 28 "No space left on device") @@ -570,14 +571,15 @@ (def-unix-error EPIPE 32 "Broken pipe") ;;; ;;; Math -(def-unix-error EDOM 33 #-linux "Argument too large" #+linux "Math argument out of domain") +(def-unix-error EDOM 33 "Numerical argument out of domain") (def-unix-error ERANGE 34 #-linux "Result too large" #+linux "Math result not representable") ;;; #-(or linux svr4) (progn ;;; non-blocking and interrupt i/o (def-unix-error EWOULDBLOCK 35 "Operation would block") -(def-unix-error EDEADLK 35 "Operation would block") ; Ditto +#-bsd(def-unix-error EDEADLK 35 "Operation would block") ; Ditto +#+bsd(def-unix-error EAGAIN 35 "Resource temporarily unavailable") (def-unix-error EINPROGRESS 36 "Operation now in progress") (def-unix-error EALREADY 37 "Operation already in progress") ;;; -- GitLab