From 627439e18ad84f2e5867d57f213c39730223f53a Mon Sep 17 00:00:00 2001 From: rtoy <rtoy> Date: Fri, 23 Jan 2009 13:38:59 +0000 Subject: [PATCH] o Add a little text to unix-chmod docstring to describe the mode argument better. o Make docstring for unix-mkdir mention unix-chmod instead of unix-fchmod for the mode argument. (Patch mostly from GP Lisper, cmucl-help 2009/01/22.) --- code/unix-glibc2.lisp | 7 +++++-- code/unix.lisp | 7 +++++-- 2 files changed, 10 insertions(+), 4 deletions(-) diff --git a/code/unix-glibc2.lisp b/code/unix-glibc2.lisp index 5ebe5d2b5..a39648e03 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.45 2008/10/03 13:30:15 rtoy Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix-glibc2.lisp,v 1.46 2009/01/23 13:38:59 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -2870,6 +2870,9 @@ in at a time in poll.") readoth Read by others. writeoth Write by others. execoth Execute (search directory) by others. + + Thus #o444 and (logior unix:readown unix:readgrp unix:readoth) + are equivalent for 'mode. The octal-base is familar to Unix users. It returns T on successfully completion; NIL and an error number otherwise." @@ -2901,7 +2904,7 @@ in at a time in poll.") (defun unix-mkdir (name mode) "Unix-mkdir creates a new directory with the specified name and mode. - (Same as those for unix-fchmod.) It returns T upon success, otherwise + (Same as those for unix-chmod.) It returns T upon success, otherwise NIL and an error number." (declare (type unix-pathname name) (type unix-file-mode mode)) diff --git a/code/unix.lisp b/code/unix.lisp index 697b92e44..3601e6d40 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.120 2008/09/24 09:42:31 cshapiro Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.121 2009/01/23 13:38:59 rtoy Exp $") ;;; ;;; ********************************************************************** ;;; @@ -1178,6 +1178,9 @@ writeoth Write by others. execoth Execute (search directory) by others. + Thus #o444 and (logior unix:readown unix:readgrp unix:readoth) + are equivalent for 'mode. The octal-base is familar to Unix users. + It returns T on successfully completion; NIL and an error number otherwise." (declare (type unix-pathname path) @@ -1399,7 +1402,7 @@ (defun unix-mkdir (name mode) "Unix-mkdir creates a new directory with the specified name and mode. - (Same as those for unix-fchmod.) It returns T upon success, otherwise + (Same as those for unix-chmod.) It returns T upon success, otherwise NIL and an error number." (declare (type unix-pathname name) (type unix-file-mode mode)) -- GitLab