anchor.diff:            (make-history))))
   
   (defun listener-start-point ()
  -  (copy-point (%listener-marker) :temporary))
  +  (copy-point (%listener-point) :temporary))
   
   (defun listener-start (buffer-name mode)
     (let ((buffer (get-buffer-create buffer-name)))
  
positive.code:           (end (lem::buffers-end (current-buffer))))
        (lem::delete-between-points start end)
        (when win (lem::insert-string-at start str))
        (lem::move-point (%listener-marker) start))))
  
  (define-key *listener-mode-keymap* (kbd "M-n") 'listener-next-input)
  (define-command listener-next-input () ()
  
negative.code: 
  (defvar *prompt-attribute* (make-attribute "blue" nil :bold-p t))
  
  (defvar %listener-point-indicator (gensym))
  (defmacro %listener-point ()
    `(get-bvar %listener-point-indicator))
  
  (defvar %listener-history-indicator (gensym))
  (defmacro %listener-history ()
  