anchor.diff:            ;; This really should have already been handled, but just in
             ;; case...
             (add-error (parse-failure-error-object err))))
  -      (map-iterator (iterator suggestions)
  -                    (lambda (s)
  -                      (make-simple-completion-suggestion s context))))))
  +      (iterator suggestions))))
   
   (defun completion-suggestions-for-input (input-text cursor-point readtable)
     "Compute possible completions.
  
positive.code:   (let ((desired-string (literal-token-string desired))
          (token-value (token-value token)))
      (if (starts-with-p desired-string token-value)
          (list-iterator (list desired-string))
          *empty-iterator*)))
  
  (defun directory-p (at-fd path)
  
negative.code:     (labels
          ((compatible-p (command)
             (starts-with-p command (simple-word-text token))))
        (map-iterator (filter-iterator (all-binary-commands) #'compatible-p)
                      (lambda (str)
                        (make-simple-completion-suggestion str context))))))
  
  (defvar *empty-token* (make-instance 'simple-word :text ""))
  
  