anchor.diff:  				    (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)
  
positive.code:   nil)
  
  (defun possibilities-for-menu (possibilities)
    (loop for p in possibilities
          for (display . object) = p
          collect `(,display :value ,object)))
  
  (defun possibility-printer (possibility ptype stream)
  
negative.code: 			   (length initial-string))
  		       initial-len)
  	       (incf nmatches)
  	       (push (list str obj) possibilities))))
        (funcall generator initial-string #'suggester)
        (if (and (eql nmatches 1)
  	       (string-equal initial-string (caar possibilities)))
  