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