diff --git a/motif/lisp/interface-glue.lisp b/motif/lisp/interface-glue.lisp index a2605f739a832f498d8dde50b4bdc1c87672fe29..37fc19b39474d0fdd85ebb72d03afcd388dc105b 100644 --- a/motif/lisp/interface-glue.lisp +++ b/motif/lisp/interface-glue.lisp @@ -114,6 +114,9 @@ (setf *local-motif-server* nil)))) (defun verify-local-server-exists () + (unless (probe-file (merge-pathnames *clm-binary-name* + *clm-binary-directory*)) + (toolkit-error "Unable to locate the Motif server.")) (when (or (not *local-motif-server*) (and *local-motif-server* (not (ext:process-alive-p *local-motif-server*))))