[mcclim-cvs] CVS mcclim

[crhodes]

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

Modified Files:
	commands.lisp 
Log Message:
the command-table-error subclasses must handle :format-control and 
:format-arguments.  Make it so, and test for it (and also test that not 
passing them doesn't lead to an unprintable condition.

New test file input-editing, for an invariant I spotted while browsing.


--- /project/mcclim/cvsroot/mcclim/commands.lisp	2006/03/23 17:03:38	1.61
+++ /project/mcclim/cvsroot/mcclim/commands.lisp	2006/04/21 12:03:23	1.62
@@ -95,8 +95,9 @@
 
 (defparameter *command-tables* (make-hash-table :test #'eq))
 
-(define-condition command-table-error (error)
-  ())
+(define-condition command-table-error (simple-error)
+  ()
+  (:default-initargs :format-control "" :format-arguments nil))
 
 (define-condition command-table-not-found (command-table-error)
   ())