[mcclim-cvs] CVS mcclim

[varkesteijn]

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