Skip to content
Snippets Groups Projects
Commit a2889c6b authored by ram's avatar ram
Browse files

Delete unused variable.

parent be25ad78
No related branches found
No related tags found
No related merge requests found
......@@ -284,13 +284,12 @@
(setf *lisp-interface-shell* nil))
(defun system-server-status-hook (process)
(let ((status (ext:process-status process)))
(unless (ext:process-alive-p process)
(setf *system-motif-server* nil)
(warn "Motif server died.~@
Status = ~S, exit code = ~D."
(ext:process-status process)
(ext:process-exit-code process)))))
(unless (ext:process-alive-p process)
(setf *system-motif-server* nil)
(warn "Motif server died.~@
Status = ~S, exit code = ~D."
(ext:process-status process)
(ext:process-exit-code process))))
(defvar *server-startup-timeout* 30)
......
0% Loading or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment