diff --git a/interface/interface.lisp b/interface/interface.lisp index 9ec063d843785735940840e7f41e6aa03afb6212..ad5a3620ff9915dc32435007d2b474008c6e4629 100644 --- a/interface/interface.lisp +++ b/interface/interface.lisp @@ -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)