[mcclim-cvs] CVS mcclim

[ahefner]

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

Modified Files:
	commands.lisp 
Log Message:
Don't return a value from map-over-command-menu-items (was trickling down
to make lookup-keystroke-item return nonsense in the case where lookup
failed).


--- /project/mcclim/cvsroot/mcclim/commands.lisp	2007/01/17 12:09:46	1.70
+++ /project/mcclim/cvsroot/mcclim/commands.lisp	2007/03/20 01:39:29	1.71
@@ -403,7 +403,8 @@
 		       menu-name
 		       (and (slot-boundp item 'keystroke) keystroke)
 		       item)))
-	(slot-value (find-command-table command-table) 'menu)))
+	(slot-value (find-command-table command-table) 'menu))
+  (values))
 
 ;; At this point we should still see the gesture name as supplied by the
 ;; programmer in 'gesture'