Update of /project/mcclim/cvsroot/mcclim In directory common-lisp.net:/tmp/cvs-serv5889

Modified Files: graph-formatting.lisp Log Message: Applied Robert P. Goldman's graph formatting patch.

Date: Fri May 13 05:00:25 2005 Author: ahefner

Index: mcclim/graph-formatting.lisp diff -u mcclim/graph-formatting.lisp:1.14 mcclim/graph-formatting.lisp:1.15 --- mcclim/graph-formatting.lisp:1.14 Sat Apr 23 22:02:01 2005 +++ mcclim/graph-formatting.lisp Fri May 13 05:00:25 2005 @@ -3,7 +3,7 @@ ;;; Title: Graph Formatting ;;; Created: 2002-08-13 ;;; License: LGPL (See file COPYING for details). -;;; $Id: graph-formatting.lisp,v 1.14 2005/04/23 20:02:01 ahefner Exp $ +;;; $Id: graph-formatting.lisp,v 1.15 2005/05/13 03:00:25 ahefner Exp $ ;;; ---------------------------------------------------------------------------

;;; (c) copyright 2002 by Gilbert Baumann @@ -312,7 +312,7 @@ (walk (node depth) (unless (graph-node-minor-size node) (when (>= depth (length generation-sizes)) - (setf generation-sizes (adjust-array generation-sizes (ceiling (* depth 1.2))))) + (setf generation-sizes (adjust-array generation-sizes (ceiling (* depth 1.2)) :initial-element 0))) (setf (aref generation-sizes depth) (max (aref generation-sizes depth) (node-major-dimension node))) (setf (graph-node-minor-size node) 0)