[mcclim-cvs] CVS mcclim

[thenriksen]

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

Modified Files:
	input-editing.lisp 
Log Message:
Completions are lists, not cons cells.


--- /project/mcclim/cvsroot/mcclim/input-editing.lisp	2008/01/31 19:17:57	1.63
+++ /project/mcclim/cvsroot/mcclim/input-editing.lisp	2008/02/01 10:53:54	1.64
@@ -537,8 +537,7 @@
   nil)
 
 (defun possibilities-for-menu (possibilities)
-  (loop for p in possibilities
-        for (display . object) = p
+  (loop for (display object) in possibilities
         collect `(,display :value ,object)))
 
 (defun possibility-printer (possibility ptype stream)
@@ -782,7 +781,7 @@
 			   (length initial-string))
 		       initial-len)
 	       (incf nmatches)
-	       (push (cons str obj) possibilities))))
+	       (push (list str obj) possibilities))))
       (funcall generator initial-string #'suggester)
       (if (and (eql nmatches 1)
 	       (string-equal initial-string (caar possibilities)))
@@ -798,7 +797,7 @@
 				    (action :complete)
 				    (predicate (constantly t))
 				    (name-key #'car)
-				    (value-key #'cadr))
+				    (value-key #'cadar))
   (flet ((generator (input-string suggester)
 	   (declare (ignore input-string))
 	   (do-sequence (possibility completions)