[Eclipse-cvs] CVS eclipse

[ihatchondo]

Update of /project/eclipse/cvsroot/eclipse
In directory cl-net:/tmp/cvs-serv16805

Modified Files:
	wm.lisp 
Log Message:
cosmetic changes

--- /project/eclipse/cvsroot/eclipse/wm.lisp	2009/11/17 21:17:29	1.59
+++ /project/eclipse/cvsroot/eclipse/wm.lisp	2009/11/17 21:36:08	1.60
@@ -1,5 +1,5 @@
 ;;; -*- Mode: Lisp; Package: ECLIPSE-INTERNALS -*-
-;;; $Id: wm.lisp,v 1.59 2009/11/17 21:17:29 ihatchondo Exp $
+;;; $Id: wm.lisp,v 1.60 2009/11/17 21:36:08 ihatchondo Exp $
 ;;;
 ;;; ECLIPSE. The Common Lisp Window Manager.
 ;;; Copyright (C) 2000, 2001, 2002 Iban HATCHONDO
@@ -682,10 +682,9 @@
   "Update root properties win_client_list, net_client_list(_stacking), 
   by adjoining or removing the given application depending of state."
   (with-slots ((appw window) iconic-p) app
-    (with-slots ((rw window) client-list) root
-      (case (if (and (= state 3) (not iconic-p)) 0 state)
-	(0 (remove-window-from-client-lists appw root))
-	(1 (add-window-in-client-lists appw root))))))
+    (case (if (and (= state 3) (not iconic-p)) 0 state)
+      (0 (remove-window-from-client-lists appw root))
+      (1 (add-window-in-client-lists appw root)))))
 
 (defun window-not-decorable-p (window &optional type)
   "Returns T if a window `should' not be decorated. Typically, a splash screen,
@@ -737,7 +736,8 @@
      :type boolean :reader close-application-p)))
 
 (defun eclipse-internal-loop ()
-  (let* ((exit 0))
+  (let ((close-display-p t)
+        (exit 0))
 
     ;; Sets the root window pop-up menu
     (when *menu-1-exit-p*
@@ -783,7 +783,7 @@
 	      (case exit
 		(1 (loop for val being each hash-value in *widget-table*
 			 when (application-p val) 
-			   if *close-display-p* do (close-widget val)
+			   if close-display-p do (close-widget val)
 			   else do (undecore-application val))
 		   (setf exit 2))
 		(2 (when (root-sm-conn *root*)
@@ -795,7 +795,8 @@
 		   (xlib:display-finish-output *display*)
 		   (return))))
 	  (exit-eclipse (c)
-	    (setf *close-display-p* (close-application-p c) exit 1))
+            (setf close-display-p (close-application-p c))
+            (setf exit 1))
 	  (end-of-file (c) (handle-end-of-file-condition c))
 	  (already-handled-xerror () nil)
 	  (error (c) (handle-error-condition c)))))