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

[Dave Murray]

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

Modified Files:
	gui.lisp 
Log Message:
Quick close-paren fix.

Date: Tue Sep 13 21:38:03 2005
Author: dmurray

Index: climacs/gui.lisp
diff -u climacs/gui.lisp:1.188 climacs/gui.lisp:1.189
--- climacs/gui.lisp:1.188	Tue Sep 13 21:23:59 2005
+++ climacs/gui.lisp	Tue Sep 13 21:38:02 2005
@@ -217,12 +217,12 @@
 	    (princ (if (recordingp *application-frame*)
 		       "Def"
 		       "")
-		   pane))))))
+		   pane)))))))
 
-  (defun display-window (frame pane)
-    "The display function used by the climacs application frame."
-    (declare (ignore frame))
-    (redisplay-pane pane (eq pane (current-window)))))
+(defun display-window (frame pane)
+  "The display function used by the climacs application frame."
+  (declare (ignore frame))
+  (redisplay-pane pane (eq pane (current-window))))
 
 (defmethod handle-repaint :before ((pane extended-pane) region)
   (declare (ignore region))