[mcclim-cvs] CVS mcclim

[afuchs]

Update of /project/mcclim/cvsroot/mcclim
In directory clnet:/tmp/cvs-serv10630

Modified Files:
	incremental-redisplay.lisp 
Log Message:
Fix the rectangle-edges* bug that prevented beirc from properly starting up on os x.

 * map-over-updating-output shouldn't call itself with a nil record;
   it breaks expectations of code in the same file.


--- /project/mcclim/cvsroot/mcclim/incremental-redisplay.lisp	2006/05/28 21:32:43	1.64
+++ /project/mcclim/cvsroot/mcclim/incremental-redisplay.lisp	2006/09/25 00:30:01	1.65
@@ -474,15 +474,12 @@
 				     (record standard-updating-output-record)
 				     use-old-records)
   (funcall function record)
-  (cond (use-old-records
-	 (if (slot-boundp record 'old-children)
-	     (map-over-updating-output function
-				       (old-children record)
-				       use-old-records)
-	     nil))
-	(t (map-over-updating-output function
-				     (sub-record record)
-				     use-old-records))))
+  (let ((children (cond (use-old-records
+                         (when (slot-boundp record 'old-children)
+                           (old-children record)))
+                        (t (sub-record record)))))
+    (when children
+      (map-over-updating-output function children use-old-records))))
 
 
 (defmethod map-over-updating-output