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