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

Modified Files: commands.lisp Log Message: * fix remove-command-from-command-table * add relevant test

--- /project/mcclim/cvsroot/mcclim/commands.lisp 2006/03/20 08:15:26 1.60 +++ /project/mcclim/cvsroot/mcclim/commands.lisp 2006/03/23 17:03:38 1.61 @@ -198,11 +198,11 @@ (when (typep item 'menu-item) (remove-menu-item-from-command-table table (command-menu-item-name item) - :errorp nil) - - (when (command-item-name item) - (remhash (command-item-name item) (command-line-names table))) - (remhash command-name (commands table))))))) + :errorp nil)) + + (when (command-item-name item) + (remhash (command-item-name item) (command-line-names table))) + (remhash command-name (commands table))))))

(defun add-command-to-command-table (command-name command-table