Commit d02cb20b authored by wlott's avatar wlott
Browse files

Give a sensible error message if we can't find the slave utility (e.g.

lisp) to run.
parent e8fb8bb6
......@@ -7,7 +7,7 @@
;;; Scott Fahlman or
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/eval-server.lisp,v 1993/08/25 02:08:34 ram Exp $")
"$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/eval-server.lisp,v 1994/02/04 15:20:29 wlott Exp $")
;;; **********************************************************************
......@@ -327,6 +327,11 @@
timeout and signal an editor-error."
(when (and name (getstring name *buffer-names*))
(editor-error "Buffer ~A is already in use." name))
(let ((lisp (unix-namestring (merge-pathnames (value slave-utility) "path:")
t t)))
(unless lisp
(editor-error "Can't find ``~S'' in your path to run."
(value slave-utility)))
(multiple-value-bind (slave background)
(if name
(values name (format nil "Background ~A" name))
......@@ -344,7 +349,7 @@
(editor-error "Buffer ~A is already in use." background)))
(message "Spawning slave ... ")
(let ((proc
(ext:run-program (value slave-utility)
(ext:run-program lisp
`("-slave" ,(get-editor-name)
,@(if slave (list "-slave-buffer" slave))
,@(if background
......@@ -358,7 +363,8 @@
(unless proc
(editor-error "Could not start slave."))
(dotimes (i *slave-connect-wait*
(editor-error "Client Lisp is still unconnected. ~
"Client Lisp is still unconnected. ~
You must use \"Accept Slave Connections\" to ~
allow the slave to connect at this point."))
(system:serve-event 1)
......@@ -369,7 +375,7 @@
(editor-error "The slave lisp was kill before connecting.")))
(when *newly-created-slave*
(message "DONE")
(return *newly-created-slave*))))))
(return *newly-created-slave*)))))))
;;; MAYBE-CREATE-SERVER -- Internal interface.
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