anchor.diff:  (defvar *inferior-lisp-mode-keymap*
           (make-keymap "inferior-lisp" 'undefined-key *lisp-mode-keymap*))
   
  +(defun inferior-lisp-set-point ()
  +  (setq *inferior-lisp-last-point* (point)))
  +
   (define-major-mode inferior-lisp-mode
     :name "inferior-lisp-mode"
     :keymap *inferior-lisp-mode-keymap*
  
positive.code:                            (point-set *inferior-lisp-last-point*)
                             (let ((*kill-disable-p* t))
                               (kill-sexp))))
       (setq *inferior-lisp-last-point* (point))
       (let ((str (pop ,log1)))
         (push str ,log2)
         (insert-string str))))
  
  (define-key *inferior-lisp-mode-keymap* (kbd "M-p") 'inferior-lisp-prev)
  (define-command inferior-lisp-prev () ()
  
negative.code:                        (error (cdt)
                                (setq error-p t)
                                (setq val cdt))))))
                  (inferior-lisp-set-point)
                  (set-buffer tmpbuf nil)))
               (mi-thread-closure
                ()
  