[mcclim-cvs] CVS update: mcclim/graph-formatting.lisp

[Andy Hefner]

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)