diff --git a/hemlock/eval-server.lisp b/hemlock/eval-server.lisp index 790528b7a30fc6b04a5ba4c4d48a473b398d1fed..7231ebbdec8bc903d48a7e3820480d5140fa7db2 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 7bec7f5857973b9b5d5f5cb07a3b1046d81ff6bb..7b8ad25c5ef4bb3ebe59053e606dcf98a8ab7b98 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)