anchor.diff:                 *minibuf-read-line-comp-f*
                  start))))
   
  -(define-command minibuf-read-line-prev-history () ()
  +(define-command minibuffer-read-line-prev-history () ()
     (multiple-value-bind (str win)
         (lem.history:prev-history *minibuf-read-line-history*)
       (when win
         (minibuffer-clear-input)
         (insert-string (current-point) str))))
   
  -(define-command minibuf-read-line-next-history () ()
  +(define-command minibuffer-read-line-next-history () ()
     (multiple-value-bind (str win)
         (lem.history:next-history *minibuf-read-line-history*)
       (when win
  
positive.code:   (delete-between-points (minibuffer-start-point)
                           (buffer-end-point (minibuffer))))
  
  (define-command minibuf-read-line-confirm () ()
    (let ((str (get-minibuffer-string)))
      (when (or (string= str "")
                (null *minibuf-read-line-existing-p*)
  
negative.code:           prompt-for-character
            active-minibuffer-window
            check-switch-minibuffer-window
            minibuffer-read-line-confirm
            minibuffer-read-line-completion
            minibuffer-read-line-prev-history
            minibuffer-read-line-next-history
            prompt-for-y-or-n-p
            prompt-for-line
            prompt-for-string
  