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