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