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) ())