Skip to content
Snippets Groups Projects
Commit 7ea43f3b authored by pw's avatar pw
Browse files

UNIX-CREAT fixed to call int-syscall. DIRED copy now works.

parent 24f77508
No related branches found
No related tags found
No related merge requests found
...@@ -5,7 +5,7 @@ ...@@ -5,7 +5,7 @@
;;; Carnegie Mellon University, and has been placed in the public domain. ;;; Carnegie Mellon University, and has been placed in the public domain.
;;; ;;;
(ext:file-comment (ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.47 1997/05/29 20:49:49 pw Exp $") "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/code/unix.lisp,v 1.48 1997/06/04 14:45:52 pw Exp $")
;;; ;;;
;;; ********************************************************************** ;;; **********************************************************************
;;; ;;;
...@@ -931,11 +931,14 @@ ...@@ -931,11 +931,14 @@
(defun unix-creat (name mode) (defun unix-creat (name mode)
"Unix-creat accepts a file name and a mode (same as those for "Unix-creat accepts a file name and a mode (same as those for
unix-chmod) and creates a file by that name with the specified unix-chmod) and creates a file by that name with the specified
permission mode. It returns T on success, or NIL and an error permission mode. It returns a file descriptor on success,
number otherwise." or NIL and an error number otherwise.
This interface is made obsolete by UNIX-OPEN."
(declare (type unix-pathname name) (declare (type unix-pathname name)
(type unix-file-mode mode)) (type unix-file-mode mode))
(void-syscall ("creat" c-string int) name mode)) (int-syscall ("creat" c-string int) name mode))
;;; Unix-dup returns a duplicate copy of the existing file-descriptor ;;; Unix-dup returns a duplicate copy of the existing file-descriptor
;;; passed as an argument. ;;; passed as an argument.
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment