From a2889c6b8a8ec96499674ee37191dd653270a953 Mon Sep 17 00:00:00 2001 From: ram <ram> Date: Sat, 19 Mar 1994 21:55:16 +0000 Subject: [PATCH] Delete unused variable. --- interface/interface.lisp | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/interface/interface.lisp b/interface/interface.lisp index 9ec063d84..ad5a3620f 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) -- GitLab