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)