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