anchor.diff:    (lem-if:popup-menu-quit (implementation)))
   
   (defun completion-again ()
  -  (when *completion-restart-function*
  -    (run-completion-1 *completion-restart-function* t)))
  +  (when *current-completion-spec*
  +    (run-completion-1 *current-completion-spec* t)))
   
   (define-command completion-self-insert () ()
     (let ((c (insertion-key-p (last-read-key-sequence))))
  
positive.code:                                       :print-function 'completion-item-label
                                        :focus-attribute 'completion-attribute
                                        :non-focus-attribute 'non-focus-completion-attribute)
             (start-completion-mode function)))))
  
  (defun run-completion (completion)
    (run-completion-1 (if (typep completion 'completion-spec)
                          (spec-function completion)
                          completion)
                      nil))
  
  (defun minibuffer-completion (comp-f start)
  
negative.code:               (t
                 (completion-next-line)))))))
  
  (defun start-completion-mode (completion-spec)
    (setf *current-completion-spec* completion-spec)
    (completion-mode t))
  
  (defun completion-item-range (point item)
  