Commit f192b5d1 authored by wlott's avatar wlott
Browse files

This commit was generated by cvs2svn to compensate for changes in r4534,

which included commits to RCS files with non-trunk default branches.
parents 3ac32f98 26aa2140
......@@ -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)
......
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