anchor.diff:    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)
  
positive.code: 			   (length initial-string))
  		       initial-len)
  	       (incf nmatches)
  	       (push (cons str obj) possibilities))))
        (funcall generator initial-string #'suggester)
        (if (and (eql nmatches 1)
  	       (string-equal initial-string (caar possibilities)))
  
negative.code: 				    (action :complete)
  				    (predicate (constantly t))
  				    (name-key #'car)
  				    (value-key #'cadar))
    (flet ((generator (input-string suggester)
  	   (declare (ignore input-string))
  	   (do-sequence (possibility completions)
  