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

Modified Files: graph-formatting.lisp Log Message: Check type of root-objects argument.

Date: Sat Apr 23 22:02:02 2005 Author: ahefner

Index: mcclim/graph-formatting.lisp diff -u mcclim/graph-formatting.lisp:1.13 mcclim/graph-formatting.lisp:1.14 --- mcclim/graph-formatting.lisp:1.13 Thu Apr 21 05:34:58 2005 +++ mcclim/graph-formatting.lisp Sat Apr 23 22:02:01 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.13 2005/04/21 03:34:58 ahefner Exp $ +;;; $Id: graph-formatting.lisp,v 1.14 2005/04/23 20:02:01 ahefner Exp $ ;;; ---------------------------------------------------------------------------

;;; (c) copyright 2002 by Gilbert Baumann @@ -133,6 +133,7 @@ (declare (ignore orientation generation-separation within-generation-separation center-nodes)) ;; Mungle some arguments (check-type cutoff-depth (or null integer)) + (check-type root-objects sequence) (setf stream (or stream *standard-output*) graph-type (or graph-type (if merge-duplicates :digraph :tree)) duplicate-key (or duplicate-key #'identity)