From 26aa2140786c368309a71e034f7885f4b77d47ec Mon Sep 17 00:00:00 2001
From: wlott <wlott>
Date: Sat, 15 Feb 1992 01:06:10 +0000
Subject: [PATCH] Changed ``mach:'' to ``unix:''.

---
 hemlock/eval-server.lisp |  4 ++--
 hemlock/lispeval.lisp    | 14 +++++++-------
 hemlock/shell.lisp       |  4 ++--
 3 files changed, 11 insertions(+), 11 deletions(-)

diff --git a/hemlock/eval-server.lisp b/hemlock/eval-server.lisp
index 790528b7a..7231ebbde 100644
--- a/hemlock/eval-server.lisp
+++ b/hemlock/eval-server.lisp
@@ -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))
diff --git a/hemlock/lispeval.lisp b/hemlock/lispeval.lisp
index 7bec7f585..7b8ad25c5 100644
--- a/hemlock/lispeval.lisp
+++ b/hemlock/lispeval.lisp
@@ -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)
diff --git a/hemlock/shell.lisp b/hemlock/shell.lisp
index 295095be2..075e35f5e 100644
--- a/hemlock/shell.lisp
+++ b/hemlock/shell.lisp
@@ -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)))))))
-- 
GitLab