Commit 26aa2140 authored by wlott's avatar wlott
Browse files

Changed ``mach:'' to ``unix:''.

parent ba5c0ad0
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/eval-server.lisp,v 1.1.1.12 1991/10/12 21:05:37 chiles Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/eval-server.lisp,v 1.1.1.13 1992/02/15 01:05:57 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -151,7 +151,7 @@
(when (server-info-wire server)
(let ((fd (wire:wire-fd (server-info-wire server))))
(system:invalidate-descriptor fd)
(mach:unix-close fd))
(unix:unix-close fd))
(setf (server-info-wire server) nil))
(when (server-info-slave-info server)
(ts-buffer-wire-died (server-info-slave-info server))
......
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/lispeval.lisp,v 1.1.1.9 1992/01/14 14:25:49 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/lispeval.lisp,v 1.1.1.10 1992/02/15 01:06:05 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -243,7 +243,7 @@
(let ((new-name (make-pathname :type "fasl"
:defaults (note-input-file note))))
(rename-file file new-name)
(mach:unix-chmod (namestring new-name) #o644))
(unix:unix-chmod (namestring new-name) #o644))
(delete-file file)))
(maybe-send-next-note server))
(values))
......@@ -422,13 +422,13 @@
file)))
(unless (probe-file f) (return f))))))
(multiple-value-bind (fd err)
(mach:unix-open (namestring ofile)
mach:o_creat #o666)
(unix:unix-open (namestring ofile)
unix:o_creat #o666)
(unless fd
(editor-error "Couldn't create compiler temporary output file:~%~
~A" (mach:get-unix-error-msg err)))
(mach:unix-fchmod fd #o666)
(mach:unix-close fd))
~A" (unix:get-unix-error-msg err)))
(unix:unix-fchmod fd #o666)
(unix:unix-close fd))
(let ((net-ofile (pathname-for-remote-access ofile)))
(values (make-pathname :directory (pathname-directory net-ofile)
:defaults file)
......
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or slisp-group@cs.cmu.edu.
;;;
(ext:file-comment
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/shell.lisp,v 1.1.1.9 1991/06/20 10:05:44 chiles Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/shell.lisp,v 1.1.1.10 1992/02/15 01:06:10 wlott Exp $")
;;;
;;; **********************************************************************
;;;
......@@ -396,7 +396,7 @@
(ecase (ext:process-status process)
(:running "running")
(:stopped "stopped")
(:signaled "killed by signal ~D" (mach:unix-signal-name
(:signaled "killed by signal ~D" (unix:unix-signal-name
(ext:process-exit-code process)))
(:exited (format nil "exited with status ~D"
(ext:process-exit-code process)))))))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment