anchor.diff:  (define-attribute non-focus-completion-attribute
     (t :foreground "black" :background "gray"))
   
  -(defvar *completion-restart-function* nil)
  +(defvar *current-completion-spec* nil)
   (defvar *last-items* nil)
   
   (defun completion-end ()
  
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:   (lem-if:popup-menu-quit (implementation)))
  
  (defun completion-again ()
    (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))))
  