Skip to content
Snippets Groups Projects
Commit d4f78b35 authored by garland's avatar garland
Browse files

The debugger should now notice the absence of the Motif server and

print an error message to that effect.
parent 748d4b3a
Branches
Tags
No related merge requests found
......@@ -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*))))
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Please register or to comment