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