[mcclim-devel] fix for remove-command-from-command-table

[Vincent Arkesteijn]

On Thu, Mar 23, 2006 at 10:14:10AM +0000, Christophe Rhodes wrote:
> Could I have a test case for Tests/commands.lisp?

The attached test fails with current mcclim, and passes with the fix
that I sent.

Vincent.
-------------- next part --------------
? remove-command-from-command-table-test.diff
Index: commands.lisp
===================================================================
RCS file: /project/mcclim/cvsroot/mcclim/Tests/commands.lisp,v
retrieving revision 1.2
diff -u -F^(def -r1.2 commands.lisp
--- commands.lisp	30 Sep 2005 16:02:33 -0000	1.2
+++ commands.lisp	23 Mar 2006 13:04:04 -0000
@@ -41,3 +41,12 @@ (define-command-table menu-test-table)
                   (lookup-keystroke-command-item gesture 'menu-test-table)))))
    'menu-test-table)
   (assert (= count 1)))
+
+(define-command-table removal-test-table)
+(add-command-to-command-table 'com-test-command 'removal-test-table)
+(remove-command-from-command-table 'com-test-command 'removal-test-table)
+(assert (handler-case
+            (remove-command-from-command-table 'com-test-command
+                                               'removal-test-table)
+          (command-not-present () t)
+          (:no-error (x) (declare (ignore x)) nil)))