[mcclim-cvs] CVS mcclim

[thenriksen]

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

Modified Files:
	input-editing.lisp 
Log Message:
Fix minor bug in complete-from-possibilities.


--- /project/mcclim/cvsroot/mcclim/input-editing.lisp	2008/02/02 19:03:16	1.67
+++ /project/mcclim/cvsroot/mcclim/input-editing.lisp	2008/02/03 08:06:31	1.68
@@ -886,7 +886,7 @@
 				    (action :complete)
 				    (predicate (constantly t))
 				    (name-key #'car)
-				    (value-key #'cadar))
+				    (value-key #'second))
   (flet ((generator (input-string suggester)
 	   (declare (ignore input-string))
 	   (do-sequence (possibility completions)