[climacs-cvs] CVS update: climacs/gui.lisp

[Elliott Johnson]

Update of /project/climacs/cvsroot/climacs
In directory common-lisp.net:/tmp/cvs-serv25999

Modified Files:
	gui.lisp 
Log Message:
heh left some test code in there, sorry
Date: Sun Feb 13 03:52:09 2005
Author: ejohnson

Index: climacs/gui.lisp
diff -u climacs/gui.lisp:1.107 climacs/gui.lisp:1.108
--- climacs/gui.lisp:1.107	Sun Feb 13 03:47:06 2005
+++ climacs/gui.lisp	Sun Feb 13 03:52:08 2005
@@ -976,8 +976,7 @@
   (unless (null (cdr (windows *application-frame*)))
     (let* ((saver (parent3 (current-window)))
 	    (top-level (do 
-			   ((a 1 (1+ a))
-			    (n saver (setf n (sheet-parent n))))
+			   ((n saver (setf n (sheet-parent n))))
 			   ((clim-internals::top-level-sheet-pane-p n) n)))
 	    (level1 (car (sheet-children top-level)))          ;; should be the only thing on level1
 	    (level2 (if (typep (car (sheet-children level1)) 'vrack-pane) ;;don't select raised pane