diff --git a/hemlock/eval-server.lisp b/hemlock/eval-server.lisp index f44974e2b54b146b4fe257ee939d82a1d4fc7eb2..5a4ca2d1764130da83426d32054d89be94f85bfa 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.9 1991/09/04 14:22:27 ram Exp $") + "$Header: /Volumes/share2/src/cmucl/cvs2git/cvsroot/src/hemlock/eval-server.lisp,v 1.1.1.10 1991/09/10 20:04:15 wlott Exp $") ;;; ;;; ********************************************************************** ;;; @@ -343,7 +343,7 @@ (editor-error "Buffer ~A is already in use." background))) (message "Spawning slave ... ") (let ((proc - (ext:run-program (namestring (truename (value slave-utility))) + (ext:run-program (value slave-utility) `("-slave" ,(get-editor-name) ,@(if slave (list "-slave-buffer" slave)) ,@(if background