From d4f78b358593bc9ca18d2ad10666c5a94a59b1d6 Mon Sep 17 00:00:00 2001 From: garland <garland> Date: Wed, 3 Feb 1993 15:17:03 +0000 Subject: [PATCH] The debugger should now notice the absence of the Motif server and print an error message to that effect. --- motif/lisp/interface-glue.lisp | 3 +++ 1 file changed, 3 insertions(+) diff --git a/motif/lisp/interface-glue.lisp b/motif/lisp/interface-glue.lisp index a2605f739..37fc19b39 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*)))) -- GitLab