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:         ((char= #\n c)
           (return nil))))))
  
  (define-key *minibuf-keymap* "C-j" 'minibuf-read-line-confirm)
  (define-key *minibuf-keymap* "C-m" 'minibuf-read-line-confirm)
  (define-key *minibuf-keymap* "C-i" 'minibuf-read-line-completion)
  (define-key *minibuf-keymap* "M-p" 'minibuf-read-line-prev-history)
  (define-key *minibuf-keymap* "M-n" 'minibuf-read-line-next-history)
  (define-key *minibuf-keymap* "C-g" 'minibuf-read-line-break)
  
  (defvar *minibuf-read-line-prompt*)
  
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
  