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